#!/usr/bin/perl

use strict;
use Data::Dumper;
open DATA,"read";
my %sum;
while (<DATA>) {
    next if ( /^ID/ || /^\s$/ );
    my ($id, $value) = split( "," );
    $sum{$id} = $sum{$id} + $value;
    
}

print Dumper \%sum;