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