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

##</code><code>##

use warnings;
use strict;
use Data::Dumper; 

my %x = (1 => 2);
my @y = @x{1, 2};
print Dumper(\@y);

__END__

$VAR1 = [
          2,
          undef
        ];