my %seen;
while (my $row = $csv->getline($fh)) {
    next if $seen{ $row->[1] }{ $row->[9] }++;

    ...
}