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

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

print "Total occorunces of $a: $i";