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