use warnings;
use strict;

my %a; 
$a{a} = undef; 
$a{b} = 1;
print keys %a, "\n"; # prints 'ab'
delete $a{b};
print keys %a, "\n"; # prints 'a'