perl -pale '$_=join"\t",@F[2,0,1]'