If reading from a stream, please forget about parse () and fields (). The two are combined a lot faster and more efficient into getline () when working in streams.

open my $fh, "<", "file.csv" or die "file.csv: $!\n";
while (my $row = $csv->getline ($fh)) {
    $row->[8] =~ m/criterium/ or next;
    # do something with this line
    }
$csv->eof or $csv->error_diag ();
[download]