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");
                 }
       }