print scalar(foo), ', ', $_, $/ for foo;

##</code><code>##

Use of uninitialized value in print at cl line 16.
Flintstone, 

##</code><code>##

print scalar(foo), ', ', $_, $/ for my @a = foo;

##</code><code>##

Flintstone, Fred
Flintstone, Wilma
Flintstone, Pebbles

##</code><code>##

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