my %unique;
while( <>) { chomp; $unique{$_}=1; }
print join "\n", keys %unique;