while ( my @group = $next->() )