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

##</code><code>##

for my $row (0..8) {
   for my $col (0..8) {
      for my $x (...) {
         push @{ $data[$row][$col] }, $x;
      }
   }
}