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"