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

##</code><code>##

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