@h{'a', 'b'} = qw/ one /;

print "Exists!\n" if exists $h{b};
print "Undef!\n" unless defined $h{b};