in reply to Re: while( each ... ) caught in an infinite loop
in thread while( each ... ) caught in an infinite loop

Which, I believe can be constructed from a much smaller example: 

while( my @a = each %{{ a=>'b' }} ) { print "forever\n" }

[download]
.

-Paul

In Section Seekers of Perl Wisdom