use strict;
use warnings;
my @config = qw|this oldtext needs replacement but not newtext Just oldtext|;
for (@config) {
s/oldtext/newtext/
}
print qq|$_;\n| for @config; # "Perl" style print
for my $t (0 .. $#config){ # Your style (c-style for loop)
print "$t:$config[$t];\n";
}
####
@config = map {s/oldtext/newtext/g; $_; } @config;
####
map {s/oldtext/newtext/g; } @config;
####
s/oldtext/newtext/ for @config;