in reply to Re: do-while loop never exits
in thread do-while loop never exits

This would have been caught if you used strict.

In Section Seekers of Perl Wisdom