Select Code to Download

my $C;

...
      $C *= $sum;
   }
}

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

...
      $C->[$col_idx] *= $row->[$col_idx];
   }
}