in reply to num keys of the hash within hash?
my $count = keys %hash; [download]
or
my $count = keys %{$hash{first}}; [download]
if you've got a hash of hashes