in reply to Joining and Applying a different hash to another

Unless I'm missing something ... 
   my %trans = ('username' => 'Name', 'password' => 'PW');
   for my $k (keys %hash1) {
      $hash2{$trans{$k}} = $hash1{$k}
   }

[download]

duff

In Section Seekers of Perl Wisdom