in reply to percentage while loop

Take a look at Devel::Profiler.

In Section Seekers of Perl Wisdom