Help for this page
for my $key1 (sort keys %count2){ for my $key2 (sort keys %{$count2{$key1}}){ ... } } }