my @pool = map{
    threads->create( \&worker, $Qwork, $Qresults )
} 1 .. $THREADS;