# fill two 25 x 25 arrays with zeros, then modify a couple of cells
my @PP = my @OO = (1..25);

##</code><code>##

use strict;
use warnings;
use Data::Dump;

my @one_by_twentyfive = (1..25); 
my @two_by_five = ([1..5],[1..5]); 
dd \@one_by_twentyfive; 
dd \@two_by_five;
__END__
[1 .. 25]
[[1 .. 5], [1 .. 5]]

##</code><code>##

use strict;
use warnings;
use Data::Dump;

my @pp; 
push @pp, [1..25] for 1..25; 
dd \@pp; 
$pp[1][1] = 1; 
$pp[2][2] = 2; 
$pp[3][3] = 3; 
dd \@pp;
__END__
[
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
]
[
  [1 .. 25],
  [1, 1, 3 .. 25],
  [1, 2, 2, 4 .. 25],
  [1, 2, 3, 3, 5 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
  [1 .. 25],
]