my @TestFeld;
for my $y (0..$#Feld)
{
  for my $x (0..$#{$Feld[$y]})
  {
    $TestFeld[$y][$x]=$Feld[$y][$x];
  }
}