Okay, respectfully, you are very confused. Either you are leaving out a tremendous amount of information, or you don't understand while loops.

Your next conditions are the same as your while conditions. Why do you need both? You don't. This is the whole point of while loops, they start at the top when you get to the bottom. They repeat the block as long as that condition is true.

You've cut and pasted identical while loops several times. Loops loop, right? You don't need to repeat them. If you want to sleep after looping X times, then keep a counter.

As many, many people have stated, you need to read, to carefully read, perlintro and perlsyn. Until you do that, you are going to continue to struggle and waste a lot of time.