in reply to nested loops

Do:
Loop : while(1){
    # Later
    next Loop;
}

[download]

In Section Seekers of Perl Wisdom