Select Code to Download

#!/usr/bin/perl
use strict;
...
my %seen = map { chomp; $_ => 1 } <$fileREFIn>;

print grep {! $seen{(split /,/, $_)[0]}} <$fileCHKIn>;