Help for this page
use feature ":5.14"; use warnings FATAL => qw(all); ... my %c = %{{map {($_, $b{$a{$_}})} keys %a}}; pp(\%c)
{ key1 => "val5", key2 => "val6", key3 => "val7" }