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