use strict;
use warnings;
my %counts;
foreach my $key ( @myArray ){
  $counts{$key}++;
}