use strict;
use warnings;
use Data::Dumper;

my %count;
grep { ++$count{$_} } qw(a b a c d d e f g f h h);
print Dumper \%count;