Select Code to Download

use strict;
use warnings;
...
$merged{$_} += $hash2{$_} for keys %hash2;

print Dumper(\%merged);

$VAR1 = {
          'key15' => 4,
...
          'key1' => 2,
          'key150' => 1
        };