my $pool = Thread::Pool->new(
    {
        workers => $numCPUs,
        do => \&workerSub,
    }
);

##</code><code>##

foreach my $href (@hrefSubsets) {
    my $jobid = $pool->job( $href, $param1, $param2, $param3 );
    push(@threadPool, $jobid);
}

##</code><code>##

for(1..$totalThreads) {
    my $results = $pool->result_any( \$jobid );    
}