my %hash;
while (<IN>)
{
  $hash{$_}++;
}

while ( my($key,$value) = each %hash)
{
  print $key if ($value == 1);
}