Select Code to Download

%a = (
  A => 1,
...

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