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