Problem: I tried, but failed, in appending the extensions to the filenames in my .txt file

You should show that too :)

and I also do not know how to pass the values stored in the array to the find () subroutine, the "if" clause.

File::Find#SYNOPSIS gives examples