Select Code to Download

use warnings;
use strict;
...
while(my($id, $value) = split ',', <IN>) {
    $sum{$id} += $value;
}