var() = foo() + bar() * baz();

##</code><code>##

var() = foo() + bar() * baz();
  6       1       2       3
      7       5       4

##</code><code>##

my $x;

sub var : lvalue { print 'var'; $x }
sub foo          { print 'foo'; 3 }
sub bar          { print 'bar'; 4 }
sub baz          { print 'baz'; 5 }

local $\ = "\n";
var() = foo() + bar() * baz();

print($x);

##</code><code>##

>perl 709887.pl
foo
bar
baz
var
23

##</code><code>##

>perl -le"$i=3; print 0+$i,$i,++$i,$i"
3444