sub WorkerThread {
    while ( $element = $wq->dequeue ) {
        $hashref = DoWork($element);
        $qq->enqueue( $hashref );
    }
}
sub DoWork{
    my %hash
    .....
    return \%hash;
}