As best I can see at quick glance, your code consists of three subroutines. sub main calls find_copy_rename and create_text_file. But sub main itself is never called.

Perhaps you thought "main" would fire automatically. That is not the case in Perl.

Also, I would encourage you to call your subroutines with sub_name() rather than &sub_name. The latter form exposes @_ from the calling context in a way that could cause you confusion inside your sub.

Hope that helps.

------------------------------------------------------------
"Perl is a mess and that's good because the
problem space is also a mess." - Larry Wall