use warnings;
use strict;

my %sum;
while(my($id, $value) = split ',', <IN>) {
    $sum{$id} += $value;
}