in reply to find loops in perl
There's File::Find, which is a core module. And of course you can also execute shell commands from within Perl, including find. Search for qx.