my $cnt = keys %hash;

##</code><code>##

print scalar keys %hash;