my %seen;
while (<TEMP>)
{
    next if $seen{$_}++;

# Rest of loop here.
}