You need to delay the last deref:

    my @keys= qw( key1 key2 key3 A );
    my $last= pop(@keys);
    delete derefHashTree($new_hash,@keys)->{$last};
[download]

                - tye