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);