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