perl -lne '/^([^\t]*)\t/; $hash{$1}++}{print $_ foreach(keys %hash)' infile.txt