my $foo = "foo";
print map {s/foo/bar/g; $_} @{[$foo]};
print "\n$foo\n";