Select Code to Download

#! perl -slw
use strict;
...
  $a->[2][2] = $a->[0][2];
  $a;
}

for($sheet = 0; $sheet < 3; $sheet++){push @sheet, [@row];}

#! perl -slw
use strict;
...
  [[0, 0, 0], [0, 0, 0], [0, 0, 0]],
]

#! perl -slw
use strict;
...
  [[0, 0, 0], [0, 0, 0], [0, 0, 0]],
]