csv
   in => \*ARGV,
   out => \*STDOUT,
   after_parse => sub { $_[1]->@* = $_[1]->@[ 1, 0, 3, 2 ] };

##</code><code>##

perl -MText::CSV_XS=csv -e'csv in => \*ARGV, out => \*STDOUT, after_parse => sub { $_[1]->@* = $_[1]->@[1,0,3,2] }' a.csv