my %seen;
print grep $seen{$_}++, <>;