So, give the customer what he wants.

This is not a code writing service. We are here to help people with their problems in Perl. We will not do your work for you. We expect you to show some effort and we also expect you to solve your problems yourself.

You will need to restructure your loop a small bit, but I've already shown you what you need to change. If you are not up to this task, you will need to either hire somebody who is up to the task or you will need to tell your customer to hire somebody else who knows how to restructure the loop so that it pleases your customer.