while (my $job = $dispatcher->dequeue()) {