for my $datum (map {[++$sortKey, "$_->[0],$_->[1]", @$_]} @data) {
    if (exists $sums{$datum->[1]}) {
        $sums{$datum->[1]}[$_] += $datum->[$_] for 4 .. $#$datum;
    } else {
        $sums{$datum->[1]} = $datum;
    }
}
   
my @result = map {[@{$_}[2 .. $#$_]]} sort {$a->[0] cmp $b->[0]} values %sums;