Select Code to Download

sub makeBoxArray {
  my ($x, $y) =  @_;
...
# use @A for something
@A = makeBoxArray( 7, 2 );
# use @A for something

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