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