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