my %seen;
while (my $line = <$fh>) {
    chomp($line);
    print "$line\n" unless seen{$line};
    $seen{$line}++;
}