my $matrix = [([(0) x $cols]) x $rows];

##</code><code>##

$VAR1 = [
          [
            0,
            0
          ],
          $VAR1->[0]
        ];