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