Select Code to Download

%hash1 = ( a, b, c, d, e, f );
%hash2 = ( a, J, e, K );
...
print Dumper ( \%hash1 );
#print Dumper ( \%hash2 );

$VAR1 = {
          'e' => 'f',
...
          'c' => 'd',
          'a' => 'J'
        };

%hash1 = ( %hash1, %hash2 );