Yes that'll do the same as BrowserUK's quick solution: replace the endless recursion with a loop.

Perl doesn't treat tail recursion as speacial, so it's still bad. As in the original code.