Math::HashSum can sum a list of key-value pairs on a per-key basis.
SYNOPSIS
use Math::HashSum qw(hashsum);
my %hash1 = (a=>.1, b=>.4);
my %hash2 = (a=>.2, b=>.5);
my %sum = hashsum(%hash1,%hash2);
print "$sum{a}n"; # Prints .3
print "$sum{b}n"; # Prints .9
This module allows you to sum a list of key-value pairs on a per-key basis. It adds up all the values associated with each key in the given list and returns a hash containing the sum associated with each key.
The example in the synopsis should explain usage of the module effectively.
Product's homepage
Requirements:
· Perl