untested code...

@rows= ( ([1..10]) x 10 );
foreach $row (@rows) {
  $output='';
  $i=0;
  foreach $col (@$row) {
    $output.=$col . ',';
    $total[$i++]+=$col;
  }
  chop($output);
  print $output,"\n";
}
print join(',',@total),"\n";
[download]