use Data::Dumper; use strict; use warnings; my @lines = ; my $count = {}; map {chomp;$count->{$_} ++} @lines; print Dumper($count); __DATA__ a a a c d e