my @nc;
my %seen;
while (<$fh>) {
    chomp;
    push @nc, $_ if !$seen{$_}++;
}