foreach $zeile (<Datei>)