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