perl -e 'my @t=qw/banana plum apple strawberry pea/;my $fruit="apple";for my $f (@t) {next if $fruit ne $f;print "yes";last}'
yes