#!/usr/bin/perl

use strict;
use warnings;

# my $infile = '/path/to/source.txt';
# my $outfile = '/other/path/to/outfile.txt';

my $infile = 'D:\folder\in.txt';
my $outfile= 'D:\folder\out.txt';

# welche Spalten sind gewünscht? (Hier: die 2., 5., 8., 9., 10.)
# Achtung: Es ist jeweils der Index - beginnt also bei 0 (wie bei Arrays)

# my @wanted = qw(1 4 7 8 9);
my @wanted = qw(0 1 2 3 4 5 6 7);
my @header = qw(Name1 Name2 Name3 ...); # Feldnamen

open my $in,'<',$infile or die $!;
open my $out,'>',$outfile or die $!;
print $out join("\t",@header),"\n"; # Ausgabe der Feldnamen
while(my $line = <$in>){
  chomp $line;
  my @cols = split /,/,$line;
  print $out join("\t",@cols[@wanted]),"\n";
}
close $out;
close $in;