while (<IN>){
    @a = split(/\t/, $_ );
}
close(IN);

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