This is to amend my previous post, the foreach loop can certainly be rewritten with a one liner:

map {my $key=$_;map {print "$key - $_\n"}
sort keys %{$n{$_}} } sort keys %n;
[download]