sub print_hash;
sub print_hash {
    my ($hash, @prefix) = @_;

    while (my ($key, $value) = each %$hash) {
        print join "/" => @prefix, $key;
        print " => ";
        if (ref $value eq 'HASH') {
            print "{\n";
            print_hash $value, @prefix, $key;
            print "}\n";
        }
        else {
            print $value, "\n";
        }
    }
}
[download]

Abigail