I am sure the bottleneck is going to be the disk I/O, so there is little you can do from Perl to speed the operation.

...well, maybe the order used to traverse the file system (deep or breadth first) could have some influence.