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

##</code><code>##

my $code_string = <<EOS;

... # your example here

EOS