my @output = map { (my $i = $_) =~ s/foo/bar/; $i } @input;

##</code><code>##

my @output = map { $_ \~ s/foo/bar/ } @input;