Select Code to Download

    while( @arrayRunningThreads ){
        my @keepers;
...
        @arrayRunningThreads  = @keepers;
    }

    while( @arrayRunningThreads ){
        my @keepers;
        for my $thread ( @arrayRunningThreads ){
...
        }
        @arrayRunningThreads  = @keepers;
    }

    for my $thread ( @arrayRunningThreads ){
        $thread->join;
    }