I don't even know where to start - the problems with your write up (no code tags), the problems with your code (not checking return values for open, unnecessary globals), or the problem with your problem - it's poorly defined.

From what I can gather, you have a tab separated file that you want to print out with the *columns* in a different order - just use Text::CSV_XS.