my $count = 0; 
for ( @array ) {
  $count += s/PERL/Perl/g;
}
print $count;