my $current_path = 'C:\\temp\\';

##</code><code>##

        my $get_files = grep { !-d } @process_file; 
        foreach my $get_files (@process_file) {
##</code><code>##

        } elsif (rename "$newdir/$get_files", "$newdir/$newfile") {