To get the number of hash elements, use the  keys function:

$a{a}{$_}++ foreach (0..5);
print scalar keys %{ $a{a} };
[download]