foreach my $key (sort keys %hash) {
    print "KEY: $key \n";
    for my $nested_key ( sort keys %{ $hash{$key} } ) {
        print "nested key: $nested_key \n";
    }
    print "-------\n";
}