No need for Perl, unless you're doing something more complicated. Type this from your *IX command line.

cut -d" " -f1 FileName | sort | uniq