my %seen = ();
while(<>) {
     print if ! $seen{$_};
     $seen{$_} = 1;
}