for(0..scalar(@array)-1){
  $array2dim[$_]->[$spalte] = $array[$_];
}