in reply to Trouble with do{}while LABELS

You should be able to label the do loop rather than enclosing it with named loop.

LOOP: do {

rather than:

LOOP: { do{

In Section Seekers of Perl Wisdom