time perl -nle'my $i=0;$a[$i++]+=$_ for (split/,/);END{print join "\t", @a}' numbers.csv