my $C;

if (@$ar) {
   $C = 1;
   foreach my $row (@$arr) {
      my $sum = 0;
      foreach my $ele (@$row) {
         $sum += $ele;
      }
      $C *= $sum;
   }
}

##</code><code>##

my $cols = @{$arr->[0]};

my $C;

foreach my $col_idx (0 .. $cols-1) {
   $C->[$col_idx] = 1;
   foreach my $row (@$arr) {
      $C->[$col_idx] *= $row->[$col_idx];
   }
}