for my $y (0..7)
{
  for my $x (0..7)
  {
    push(@moves,find_move(\@Feld,$x,$y));
  }
}