Select Code to Download

use strict;
use Data::Dumper;
...
    my ($a, $b) = @_;
    $a->{$_} = $b->{$_} foreach keys %$b;
}

$VAR1 = {
          'A' => '1',
...
          'C' => '3',
          'D' => '4'
        };