for my $eng (keys %hash){
   $hash{$hash_tr_fr{$eng}}=$hash{$eng};
   delete $hash{$eng};
}

##</code><code>##

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