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

my @array = qw(John Sue Larry Mary John Mary Larry John Joe Lisa John Mary);

my %count;
$count{$_}++ for @array;

print Dumper \%count;