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