$ perl -e '%x=(1 => 2); if(@{[@x{1, 2}]}) { print "yes\n" } else { print "no\n" }'
yes