for (my $i = 0; $i < $anzahl; $i++){
....print "$zeilen[$i]\n";
}