my %seen;
while ( <DATA> ) {
  s/\s+$//;  # Remove trailing spaces and newline.
  print "$_\n" unless $seen{$_}++;
}