my @foo;
while (@foo = ...) { ... }