
while (<>) {
  chomp;
  my ($who) = split;
  unless ($seen{$who}) {   
    $seen{$who} = 1;
    print "$who\n" 
  }
}


