If you're really worried about the cost of a while loop then maybe Perl isn't the right tool for the job.