$j=2; push(@zweite_Zeile, "\t"); push(@zweite_Zeile, "Anzahl\n"); my $second_line = <$fh>; @second_col = (split(/,/,$second_line)); while ($j<40) { #print "$second_col[$j]\n"; push(@zweite_Zeile, "\t $second_col[$j] \n"); $j=$j+2; } print "@zweite_Zeile";