use Data::Dumper;
print Dumper \%somehash;
my $count = 0;
$count += 2 * @$_ for values %somehash;
[download]

If you want a different output format, tell us what you want, and what you've tried so far.

Note that it only counts the number of pairs in the inner hashes - if you want something different... well, you know the drill by now.