Select Code to Download

my $whatever = 1;
while( $whatever ){
    for my $ix ( 1 .. 4 ){
        ...
    }
}

sub make_rollover {
    my( $completion_list ) = @_;
...
while ( my $next = $rollover->() ){
    ...
}