Select Code to Download

#!/usr/bin/perl
use warnings;
...
print exists $hash{$var} ? "yes\n" : "no\n";

print +(grep $_ eq $var, @values) ? "yes\n" : "no\n";