my @temp = keys %hash;
@hash{@hash_tr_fr{@temp}} = delete @hash{@temp};