if (my $key = $Queue->dequeue_nb) {

##</code><code>##

while( my $key = $Queue->dequeue ) {
    do_something();
}