Since while only tests a condition, perl has no knowledge of what you consider the "loop pointer".

You'll have to reset it yourself, of use a for loop (perhaps with a label) instead. Or rethink your code...