use v5.12;  # strict inclusive
use Text::CSV;
 
my @rows;
my $file = "Test.txt";
my $csv = Text::CSV->new ( { binary => 1, sep_char => "\t" } )  # should set binary attribute.
                or die "Cannot use CSV: ".Text::CSV->error_diag ();
 
open my $IN, "<:encoding(utf8)", $file or die "$file: $!";
open (my $OUT, '>>', "Neu.txt");

while ( my $row = $csv->getline( $IN ) ) {
    say $OUT $row->[1],"\t", $row->[13]);
}
close $IN;
close $OUT;