for my $i (0 .. @zeilen){
....print "$zeilen[$i]\n";
}