Select Code to Download

use warnings;
use strict;
...
print keys %a, "\n"; # prints 'ab'
delete $a{b};
print keys %a, "\n"; # prints 'a'