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