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