<17>11,2002,FORD ,ECONO CO, ,34567676xxxxx <17>11,2002,FORD ,ECONO CO, ,34567676xxxxx #### my %seen; while () { next if $seen{$_}++; # Rest of loop here. }