while (my $pitem=$queue->dequeue) {
    my %result=\$pitem;