C:\test>perl -F"\|" -anle"print join'|', @F[ 1,3, 0,2 ]" junk.csv
AGE|ZIP|NAME|CITY
23|60001|AAA|STAT
34|12345|BBB|PPOR
11|2345|CCC|TRET