my @feld;
my @daten=(1..8);
for my $z (0,1)
{
  for my $y (0,1)
  {
    for my $x (0,1)
    {
      $feld[$z][$y][$x]=shift(@daten);
    }
  }
}