my $C;

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