my $foo = "$bar{foo}";
$foo .= $baz->method(@foo);
$foo .= join(',', @$bar{'foo','bar'});

##</code><code>##

qw[ $foo @foo %bar $bar $baz ];