while (my $fields = $csv->getline( $fh )) {  entry = $fields->[2];}