use 5.010;

my @set = qw/banana plum apple strawberry pear/;

my $var = "apple";
if ($var ~~ @set) {
	say "yes";
}