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");
    }
    }
}