%a = (
  A => 1,
);

print 'A' if not exists $a{'A'};  # prints nothing
print 'B' if not exists $a{'B'};  # prints B