Select Code to Download

while(@array1) {
    ONE: while(@array1) {
...
        # push @array1, ...
    }
}

while(@array1 or @array2) {
    my $i = 0;
...
        # Do various things (as above)
    }
}

while(@array) {
    my $item = shift @array;
...
        warn $item;
    }
}