Just pass the "path" to the recursive calls to print_hash:

sub print_hash {

    my ($href, $path) = @_;

    foreach my $key (keys %$href) {
    if (ref($$href{$key}) eq 'HASH') {
        my $href2 = $$href{$key};
        print_hash($href2, (defined $path ? "$path/$key" : $key));
    } 
    else {
        print ((defined $path ? "$path/$key" : $key), " => $$href{$key
+}\n");
    }
    }
}
[download]

Jenda
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live.
   -- Rick Osborne

Edit by castaway: Closed small tag in signature