my @a = qw( foo bar baz quux );
print "yup" if grep "bar" eq $_, @a;

__output__

yup