print_hash(\%hash,'');
#                ^^^
sub print_hash {

    my($href,$pre) = @_;
#           ^^^^^
    foreach my $key (keys %$href) {
    if (ref($$href{$key}) eq 'HASH') {
        my $href2 = $$href{$key};
        print_hash($href2,$pre.$key.'/');
#                        ^^^^^^^^^^^^^^