while ( !$stat{'done'} ) {
    if ( my $msg = $queue_up->dequeue_nb() ) {
        ...
    }
    else {
        sleep 1; ## Use usleep or select for better responsiveness
    }
}