in reply to output unique lines only

IIUC
$ perl -lne 's/\t.*//; print if !$saw{$_}++' input_file > output_file