Select Code to Download

my @nums = map { [qw/01 02 03 04 05 06 07 08 09 10 11 12/], } 1 .. 12;

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