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

 
