http://www.perlmonks.org?node_id=716000


in reply to subs calling each other

Perhaps it's just a straightforward case of mutual recursion. If so, the recursive call to init() is taken only if the preceding $retval was non-false, otherwise the recursion ends at this call of process().