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

##</code><code>##

foo = 'Flintstone';
(foo) = qw/Fred Wilma Pebbles/;
# Hmmm, odd bug, the lines following demonstrate what works
# print scalar(foo), ', ', $_, $/ for foo;
print join ' & ', foo;
print ' ', scalar(foo),$/;

##</code><code>##

{
    my $foo;
    sub foo () :lvalue {
        defined wantarray ? $foo : undef $foo;
    }
}