sub makeBoxArray { my $left = shift; my $top = shift; my $width = shift || 4; my $height = shift || 4; return map { my $y = $_; [ map { [$left+$_, $top+$y] } 0 .. $width-1 ] } 0 .. $height-1 ; }