in reply to problem in loop break

Where is the loop in the code you posted?

In Section Seekers of Perl Wisdom