{ my ($foo,@foo); sub foo () :lvalue { wantarray ? @foo : $foo; } }