There may be a more concise way, but...

my $i = 0;
my $a = 'match_this'

foreach my $b (@array) {
  if ($a eq $b) { $i++ }
}

print "Total occorunces of $a: $i";
[download]

Hope it helps.

scott.