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