my @arr;
for my $i (0..$n-1) {
   for my $j (0..$m-1) {
      $arr[$i][$j] = 0;
   }
}