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