#usr\bin\perl -w
my $file="Test.txt";
my @a;
my @neu;
my @idx;
my @gene;
my @transcript;
my @name;
my @location;
my @position;
my @type;
my @nuc;
my @cov;
my @aa;
my @cond;
my @hint;
my @web;
my @hgvs;

open (IN,$file) or die "Datei $file konnte nicht gefunden werden\n"; 
while (<IN>){
chomp ($_);   
@a=split(/\t/, $_ );  #
push (@idx, $a[0]);
push (@gene, $a[1]);
push (@transcript, $a[2]);
push (@name, $a[3]);
push (@location, $a[4]);
push (@position, $a[5]);
push (@type, $a[6]);
push (@nuc, $a[7]);
push (@cov, $a[8]);
push (@aa, $a[9]);
push (@cond, $a[10]);
push (@hint, $a[11]);
push (@web, $a[12]);
push (@hgvs, $a[13]);
}
close IN;

foreach (1..$#a){
@neu=($a[1],"\t", $a[13],"\n");
}

open (DATEI, ">>Neu.txt");
print DATEI @neu;
close DATEI;