See also Sub::Recursive which handles all that for you in a clean way.

use Sub::Recursive;

my $recursive = recursive { ... $REC->(...) ... };
[download]