if (grep {$_ eq $e} @a) {
  # $e is in @a
}

##</code><code>##

my %lookup = map { $_ => 1 } @a; # only do this once if you can
if (exists $lookup{$e}) {
  # $e is in @a
}