my %seen;
while (my $row = $csv->getline ($fh)) {
    # WTF do you think chomp is doing here?
    $seen{pack "ll", $row->[1], $row->[9]}++ and next; # change ll to reflect types
    # continue processing ...
    }