my $num = keys %{ $hash{key} };

# or

my $ref = $hash{key}; my $num = keys %$ref;