You change the string, but don't rename the file. You could have debugged that further to see if your substitution on the filename actually happens, and have printed that out. print is a very good mechanism to see what happens in your program.

On an aside, $file eq -f likely doesn't do what you want. If you want to check if a file exists under a certain name, use -f $file.