use strict; use warnings; my $string = 'LOCAL Antony 17 Antony 23 1569'; my @tokens = split /\t/,$string; my %duphash = (); foreach (@tokens) { $duphash{$_}++; }