my $tfields;

while (my $row=$csv->getline($FILE1))
{
       for (my $i = 0; $i < @$row; $i++){
	push (@{$tfields -> [$i]}, $row ->[$i]);
    }
}

foreach my $row (@$tfields) {
    $csv->print ($FILE2, $row);
}