if (grep {$_ eq "foo"} @somearray) {
   someaction();
}

##</code><code>##

someaction() if grep {$_ eq "foo"} @somearray;