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