my %seen;

while (...) {
    next if $seen{$_}++;
    print;
}