while( my $ziele = <$filehandle> )
       {
       @test = split(/;/, $ziele);
       $groesse = scalar @test;
	         if ($groesse <5)
	         {
                 print fAUSDATEI "FEHLER\n\n Eine ID hat weniger als 5 Werte!";
                 }
	         else
                 {
                 print $groesse;
	         $ziele=();
	         @test=();
                  open (my $filehandle, "<$solldatei");
		 open (my $filehandle1, "<$istdatei");
	         }
       }