You might try Test::Memory::Cycle to look for issues.

How could Test::Memory::Cycle help finding inefficient (and insecure) code like @data = `cat $dirtoget/decrypt/sample.log`; that reads probably huge log files into memory?

The most complex data structures used in this script, apart from the $seen{$_}++ variant in get_dirs(), are arrays of strings. There is not a single trace of using references that could create circular references. How could Test::Memory::Cycle help here?

Alexander