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