foreach (keys %hashA) {
  print "$_ = $hashB{$hashA{$_}} \n";
}