for /l %i in (1,1,8) do @perl -F"\t" -anle"print join chr(9), @F[2,0,5]" in%i.tsv > out%i.tsv