Select Code to Download

# build the grid
my @grid;
...
for (1..$NUMBER_OF_ROWS) {
    push @grid, \@row;
}

#! perlmy @grid;
use strict;
...
          $VAR1->[0],
          $VAR1->[0]
        ];

my @grid = ( [ '01' .. '12' ] ) x 12;

my @grid = ( .... ) x $n;

my @grid = map{ ... } 1 .. 12;