Re: How do I make all the values in %a with common keys in %b equal to %b's keys?

[CharlesClarkson]

my @common  = grep exists $a{$_}, keys %b;
@a{@common} = @b{@common};