my ($sum) = split /,/, $line;
for (2..12) {
   my ($val) = split /,/, <IN>;
   $sum += $val;
}