#! /usr/bin/perl -w

use strict;

my %seen;

while( <> ) {
    chomp;
    ++$seen{$_};
}

print "$_\n" for keys %seen;

##</code><code>##

    print "$_\n" while ($_ = each %seen);

##</code><code>##

  sort -u -o uniq.txt <dups.txt