for my $line ( @alle_zeilen ) { ... }