my $prev = "";
foreach (sort <$IN>)
{
   print unless $_ eq $prev;
   $prev = $_;
}