my @foo = qw /one two three/;
sub foo () : lvalue {@foo}

print for foo;
__END__
Use of uninitialized value in print at /tmp/bug line 9