sub foo { shift->bar('foo', @_)) }

##</code><code>##

{
   my $x = $x;
   ...
}

##</code><code>##

f($i, --$i, $i);