#/usr/bin/perl -w
use strict;

my %seen;
my @uniq = grep !$seen{$_}++, <>;

print map "$_\n", @uniq;

##</code><code>##

print map "$_: $seen{$_}\n", @uniq;