Select Code to Download

$csv->print($fh, $_) for @rows;

$csv->print($fh, \@row);

$csv->print($fh, $_) for \@rows;