sub remove {
    my ($p, $d) = @_;
    if ($d-- > 1) {
        remove($_, ($d)) for values %$p; # Had second decrement here
    }
    else {
        my %newhash;
        for (values %$p) {
            @newhash{keys %$_} = values %$_;
        }
        $_[0] = \%newhash;
    } 
}