perl -e 'my @t=qw/banana plum apple strawberry pea/;my $fruit="apple";my %in;undef @in{@t};print ((exists $in{$fruit})?"yes":"no");' yes