use List::Util qw(sum);

my $count = sum map scalar(@$_), values %h;

#or
# my $count = sum( map scalar(@$_), values(%h));
# or
# my $count = sum( map {scalar(@$_)} values(%h));
# if that syntax looks more readable to you.