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, [@row];} 
$sheet[0][1][2] = 5;
for($col = 0; $col < 3; $col++) { 
for($row = 0; $row < 3; $row++) {
for($sheet = 0; $sheet < 3; $sheet++){
print "sheet=$sheet,row=$row,col=$col,$sheet[$sheet][$row][$col]\n";
} 
}
}