while (<$fh>) {
    my @row = $csv->parse ($_);
    ...

##</code><code>##

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