如何验证Perl中的数组(列表)中是否存在值？

my @array = (1, 2, 3);
if (@array) {
    print "数组中有元素\n";
} else {
    print "数组中没有元素\n";
}

my @array = (1, 2, 3);
if (grep { $_ == 2 } @array) {
    print "数组中存在值2\n";
} else {
    print "数组中不存在值2\n";
}

use List::Util qw(first);
my @array = (1, 2, 3);
if (first { $_ == 2 } @array) {
    print "数组中存在值2\n";
} else {
    print "数组中不存在值2\n";
}