in reply to Renames files and directories but won't update files at the same time.

First you rename the file and then you store the old path...

Replace 

push (@files, "$File::Find::name");

[download]
with 
push (@files, $concat);

[download]

In Section Seekers of Perl Wisdom