s/foo/bar/ for (@these) if ($this);

##</code><code>##

map { s/foo/bar/ } @these if ($this);

##</code><code>##

print "The 'bar' attribute of object 'foo' is $foo->bar();\n";

##</code><code>##

print "The 'bar' attribute of object 'foo' is @{[ $foo->bar() ]};\n";