#!/usr/bin/perl -l

use strict;
use warnings;

my %hoh=( h => {foo=>1}, g => {bar=>2} );
print scalar keys %hoh;
print scalar keys %{ $hoh{h} };

undef %hoh;
print scalar keys %hoh;
print scalar keys %{ $hoh{h} };

__END__

##</code><code>##

2
1
0
0