# parse input CSV file and check for matches against patterns

    while (<>) {
        chomp;
        my @col_vals = split /,/;  # use real CSV parsing instead
        my ($col, %col_matches);
        for (@col_vals) {
            for (@{ $pattern_colvals{$col++}{$_} }) {
                print "line $. matches $_$/"
                    if ++$col_matches{$_} == $pattern_sizes{$_};
            }
        }
    }