my %set = map { $_ => 1 } qw/banana plum apple strawberry pear/;
if (exists $set{$var}) {
	say "yes";
}