Select Code to Download

#!/usr/bin/perl

...
my @array = map [ (0) x $m ], 1 .. $n;

use Data::Dump 'dd'; dd @array;

(
  [0, 0, 0, 0, 0, 0, 0],
...
  [0, 0, 0, 0, 0, 0, 0],
  [0, 0, 0, 0, 0, 0, 0],
)