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

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

##</code><code>##

my %foo;
undef @foo{@foo};

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

##</code><code>##

if (grep $_ eq $bar, @foo) {
   ...
}