perl -e 'my @t=qw/banana plum apple strawberry pea/;my $fruit="apple";print (($fruit~~\@t)?"yes":"no");'
yes