@a = split(/\t/);
print "$a[0]\t$a[1]\t$a[12]\t$a[11]\n";