async {
    while( my $workItem = $Q->dequeue ) {
        ...
    }
};