Have a look at Parallel::Iterator, too.

You can set the number of parallel workers with the option workers:

use strict;
use warnings;

# Number of parallel tasks
my %options = ();
$options{workers} = 8;

# Execute tasks in parallel
my @results  = iterate_as_array( \%options,
                          $worker, \@tasks );
[download]

Hth, Thomas