use threads::lite;

my @threads = threads::lite->spawn( 10 );

...

## Then when I know what I want a thread to do
my $Xthread = pop threads;
$Xthread->run( \&doX, @Xargs );

....

my @Xresults = $Xthread->join;