I haven't tried your code but it looks OK. There are memory limits to how big an array can grow, but unless you've got a directory structure millions of layers deep, that shouldn't be a problem. Your my ($Variable); declarations suggest that you wrap lists in brackets without knowing why. That will become useful when you write things like

  my ( $foo, $bar ) = @_;
[download]

since @_ is a list context kind of animal.

How deep did your recursion go? How did it die? What happened? Why do you think it died?

--t. alex
Life is short: get busy!