Is @a = glob("*/*"); fast enough compared to the whole program? What's your typical $#a? Your code does potentially huge amount of unnecessary string-to-number conversions and re-engine stuff.