Help for this page
my @two_d = ( [(undef) x 5], [(undef) x 5], ... [(undef) x 5], [(undef) x 5], );
my @two_d; push @two_d, [(undef) x 5] for 1 .. 5;