Hi, I think doing it this way has fixed my problem. This VPS that i'm working with is kind of low in resources. Anyways, is this a bad thing to do?

#!/usr/bin/perl
#
use threads;
use Thread::Queue;

use warnings;
use Fcntl ':flock';


sub process {

        my $i = shift;
        my $q = Thread::Queue->new();


        $q->enqueue($_) for($i .. $i+9000);
        $q->enqueue( (undef) x 10 );

        for(0 .. 9) {
                threads->new(\&worker, $q);
        }

        $_->join for threads->list;

}

sub worker {

        my $queue = shift;
        while( my $item = $queue->dequeue) {
                print $item."\n";
        }
        return;
}


my $i = 0;

until($i > 50000) {
        &process($i);
        $i+=9000;
}
[download]