I should have mentioned that I am very new to Perl. I am not running this on anything larger than 250gb. The speed problem is likely due to my inexperience in programming with Perl.
If you don't mind my asking, how would I go about merging the find_subdirs together? If I could even cut the run-time on this script in half, I would be ecstatic.