#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11157035
use warnings;

my $n = 4;
my $m = 7;

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

use Data::Dump 'dd'; dd @array;
[download]

Outputs:

(
  [0, 0, 0, 0, 0, 0, 0],
  [0, 0, 0, 0, 0, 0, 0],
  [0, 0, 0, 0, 0, 0, 0],
  [0, 0, 0, 0, 0, 0, 0],
)
[download]