while ( my $next = ) { ... }