my $f = grep { $_ eq 'abc' } @a; if ($f) { ... }