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