while (my $row = $csv->getline($fh)) {