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

my $q = Thread::Queue->new();    # A new empty queue
# Send work to the threads
$q->enqueue($_) for @ARGV;

# Worker threads
my $thread_limit = 8; 

my @thr = map {
	threads->create(sub {
	    while (defined (my $item = $q->dequeue_nb())) {
			doStuff($item);
	    }
	});
} 1..$thread_limit;
 
# terminate.
$_->join() for @thr;