my %foo = map { $_ => 1 } @foo;

if ($foo{$bar}) {
   ...
}