while ( @combo = $next() ) { ##

##

    while @combo = $next() {

##

##

    for combo() -> $combo {