Select Code to Download

for (keys %a) {
    $a{$_} = $b{$_} if exists $b{$_};
...
# or

$a{$_} = $b{$_} for grep { exists $a{$_} } keys %b;