Select Code to Download

my %hash = (); # empty hash
print "empty!" unless (%hash);

my @a = keys(%hash)
print "$#a\n";