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