perl -lne '/^([^\t]*)\t/; $hash{$1}++}{print $_ foreach(keys %hash)' infile.txt #### ls dir | for each file execute: perl -lne '/^([^\t]*)\t/; $hash{$1}++}{print $_ foreach(keys %hash)'