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

##</code><code>##

my @numbers; 
for ( 0 .. $#array ) {
  push @numbers, $_ if $array[$_] =~ s/PERL/Perl/g;
}
print join ', ', @numbers;