my $_;

# ...

my @out = map { s/.$/x/; $_ } @in;