in reply to percentage while loop

Its possible, you just print

In Section Seekers of Perl Wisdom