my %i = %h; my $c = %i; print "count is $c\n";