my $idx=0;
for my $feld (0..8) {
  for my $spalte (0..2) {
     for my $zeile (0..2)  {
         $coord[$feld][$zeile][$spalte]=$liste[$idx++];
     }
  }
}