in reply to Modifying loop structure and placement

One possibility is the redo command. Add a LABEL at line 4 (or 1) and replace lines 10 and 11 with redo LABEL.

In Section Seekers of Perl Wisdom