while (<>) {
  print unless $seen{$_}++;
}