#!perl -w
use strict;
my @sum = ();
my $prevkey ="";
while (<>) {
  chomp;
  my @data = split /,/, $_;
  next if $data[0] == 1; # skip headers

  my $key = join(",", @data[0, 1, 3, 4]);
  if ($key eq $prevkey) {
    for (0 .. $#data - 5) {
      $sum[$_] += $data[$_ + 5]
     }
   } else {
     dumpsums();
     $prevkey = $key;
     @sum = @data[5 .. $#data];
   }
}
dumpsums();

sub dumpsums {
  if ($prevkey) {
    print "$prevkey,", join(",", @sum), "\n";
  }
}