Recursing through directories and subdirectories and doing something with every item found can be achieved by several different modules in much less code, such as Path::Class::Dir's recurse, or find from File::Find; the latter is a core module if you prefer that. There's also File::Find::Rule or Path::Tiny and a few others.