Select Code to Download

for my $row (0..8) {
   for my $col (0..8) {
...
      $data[$row][$col] = \@record;
   }
}

for my $row (0..8) {
   for my $col (0..8) {
...
      }
   }
}