#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my $count={};
my @a =qw(1 2 3 4 5 5 5 5);

map { $count->{$_}++ } @a;

print Dumper($count);