foreach $item (@filesToRetrv) {
    my ( $fileName, $filePath, $fileExt ) = fileparse($item, qr/\.[^.]*/);
        if (rename($item, $fileName)) {
           push (@filesToMove, $fileName);
        } else {
           print LOG "Rename failed for $localName to $fileName\n";
        }

    }