my @values= qw(foo bar baz bax);
my $test = "foo";
print "woo\n" if (grep {$_ eq $test}@values) ;