Perlfunc: in_array()
If you need to determine if an array contains a specific element you can use this function:
sub in_array {
my $needle = shift();
my @haystack = @_;
foreach my $l (@haystack) {
if ($l eq $needle) { return 1; }
}
return 0;
}
Note: If you want to check integers just change the eq
to ==