Select Code to Download

my %add = ( a => 1,
            b => 2,
...
    $totals{$_} += $add{$_} for keys %add;
}
print Dumper(\%totals);

    while (my ($k, $v) = each %add) {
        $totals{$k} += $v;
    }