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 ();