Perl可以检测数组吗？

my @array = (1, 2, 3, 4);

my $length = scalar @array;

my $element = 3;
my @matches = grep { $_ == $element } @array;
if (@matches) {
    print "Element $element is in the array.\n";
} else {
    print "Element $element is not in the array.\n";
}

my @sorted_array = sort @array;
my @unique_array = uniq @sorted_array;

my @slice = @array[1..3];