#! perl -slw
use strict;
use Data::Dump qw[ pp ];


my $col; my @col; my $row; my @row; my $sheet; my @sheet;
for($col = 0; $col < 3; $col++) { push @col, "0";}
for($row = 0; $row < 3; $row++) { push @row, [@col];}
for($sheet = 0; $sheet < 3; $sheet++){
    push @sheet, [ map [ @$_ ], @row ];
}
$sheet[0][1][2] = 5;

pp \@sheet;

__END__
c:\test>junk38
[
  [[0, 0, 0], [0, 0, 5], [0, 0, 0]],
  [[0, 0, 0], [0, 0, 0], [0, 0, 0]],
  [[0, 0, 0], [0, 0, 0], [0, 0, 0]],
]