open (INPUT, "<", $file1)
	or die "Die Datei kann nicht geoeffnet werden ! $!\n";
	print "\nDie Datei $file1 enthaelt folgende Saetze:\n\n";
	
                                wie kann ich eine for schleife 
                                for ($i=0;$i<@array;$i++){
                                print "$array[$i]\n";
                                }
                               mit einer while ($file1=<INPUT>) { .... verbinden dass ich das erwünschte               Ergebnis bekomme ? Sollte ich auch Array of Array benutzen oder gehts auch anders?

		
		                   @eg1=split (" ", $file1,10);
		                    push @AoA1, [@eg.......
		
	                           }
	                           close (INPUT);

$anzahl1 = $#AoA1+1;
print "\nDie Datei enthaelt ", $anzahl1," Saetze !\n\n";