#!/usr/bin/perl

use warnings;
use strict;

my $file = "Test.txt";
my @a;
my @neu;
my $in;
my $datei;

open($in, "<" , $file) or die "Datei $file konnte nicht gefunden werden\n"; 

while (<$in>) {
    chomp($_);   
    @a  = split(/\t/, $_);
    push(@neu, "$a[1]\t$a[13]\n");
}
close($in);

open($datei, ">", "Neu.txt");

foreach (@neu) {
    print $datei $_;
}

close($datei);