perl -ane 'print  join ("\t",splice(@F, 1 ,1),@F ), "\n"' YourFileName.txt

##</code><code>##

perl -sane 'print  join ("\t",splice(@F, $COL-1 ,1),@F ), "\n"' -- -COL=2  YourFileName.txt

##</code><code>##

perl -sape '$_=splice(@F, $COL-1,1)." @F\n"' -- -COL=3 YourFileName.txt