my $count = scalar keys %{ $doc };

##</code><code>##

my $count = scalar @{ $doc->{$sub1} };

##</code><code>##

my $count = @{ $doc->{$sub1} };