Select Code to Download

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

$VAR1 = {
          'e' => 1,
...
          'f' => 2
        };