my %seen;

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

##</code><code>##

keys %seen