No need for extra wrappers

push @threads, threads->create(\&DoWork, $workQueue, $doneQueue) for 1
+ .. 4;
[download]