my %saw;
while (<$in>) {
    print if !$saw{$_}++;
}