Select Code to Download

use 5.010;

...
if ($var ~~ @set) {
    say "yes";
}

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