$position[0] == @list ? $done = 1 : $next = 1;

##</code><code>##

    @position == @list ? $done = 1 : $next = 1;

##</code><code>##

        return () if $done;

##</code><code>##

            return () if $by > @list;