my @in = qw(a b c d e f g h);

print "Start: ",@in,"\n","***RUNNING MAP***\n\n";
my @out = map { s/.$/x/}  @in;
print "in : ",@in,"\n";
print "out: ",@out,"\n"

##</code><code>##

Start: abcdefgh
***RUNNING MAP***

in : xxxxxxxx
out: 11111111
##</code><code>##

my @in = qw(a b c d e f g h);

print "Start: ",@in,"\n","***RUNNING MAP***\n\n";
my @out = map { s/.$/x/r}  @in;
print "in : ",@in,"\n";
print "out: ",@out,"\n"
##</code><code>##

Start: abcdefgh
***RUNNING MAP***

in : abcdefgh
out: xxxxxxxx
##</code><code>##

my @in = qw(a b c d e f g h);

print "Start: ",@in,"\n","***RUNNING MAP***\n\n";
my @out = map { s/.$/x/}  my @temp = @in;
print "in : ",@in,"\n";
print "out: ",@out,"\n"
##</code><code>##

Start: abcdefgh
***RUNNING MAP***

in : abcdefgh
out: 11111111