my $subhash = $hash{$x};
my $count = keys %$subhash;