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