Select Code to Download

my @transposed;
while (my $row = $csv->getline($FILE1)) {
...
}

$csv->print($FILE2, $_) for @transposed;