perl -e 'while(<>){ $_{$_} or print $_; $_{$_}=1;}' <file