foreach my $k (sort keys %hash) {
        for my $subkey ( sort keys %{ $hash{$k} } ){
                @{$hash{$k}->{$subkey}};
                print "$k\n";
                for my $i (@{$hash{$k}->{$subkey}}) {
                        print "$subkey: $i\n";
                }
        }
}