Select Code to Download

open my $fh_in,  "<", "test.csv"     or die "test.csv: $!";
...
while (my $row = $csv_in->getline ($fh_in)) {
    $csv_out->print ($fh_out, [ @{$row}[2,1,0,3] ]);
    }