Написать многопоточный перебор на perl

Есть задача запускать внешнее приложение (тесты) в регулируемое число потоков.

например есть цикл: 

for($i=0;$i

{

system($cmd);

}

необходимо чтобы он выполнялся в заданном количестве потоков.

Важно чтобы число переданное в $cmd не повторялось