my @grid = map [ @$_ ], ( [ '01' .. '12' ] ) x 12; #### my @grip = map [ '01' .. '12' ], 1 .. 12;