use strict; my @array = ; chomp @array; my %cnt; $cnt{$_}++ foreach (@array); print "$_ => $cnt{$_}\n" foreach (keys %cnt); __DATA__ MANGO APPLE GRAPES MANGO MANGO MANGO MANGO APPLES APPLES BANANA CORN APPLES