sub worker {
    my( $Q ) = shift:
    while( my $workItem = $Q->dequeue ) {
        ## Perform query
        ## Perform comparison
        ## Perform output/cleanup
    }
}