perldoc File::Find says:

The wanted() function does whatever verifications you want.
$File::Find::dir contains the current directory name, and $_ the current filename within that directory. $File::Find::name contains the complete pathname to the file.

Btw - what's that "\n" do there in the push()? :-)
____________
Makeshifts last the longest.