Select Code to Download

  DB<38> use v5.10.0;

...

  DB<41>  print "yes" if $var ~~  @a;
yes

print "yes" if grep { $var == $_} @a;