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