Select Code to Download

 #Disregard file extension in comparison:
foreach my $item (@wrkDirList) {
my ( $fileName, $filePath, $fileExt ) = fileparse($item, qr/\.[^.]*/);
    $item = $fileName;
}

 foreach $item (@filesToRetrv) {
    my ( $fileName, $filePath, $fileExt ) = fileparse($item, qr/\.[^.]
+*/);
        if (rename($item, $fileName)) {
...
        }

    }

foreach $fileToGet (@matches) {
  my $remoteFileSize = $ftp->size($fileToGet);
  $localFileName = "$fileToGet".".xxx";
...
        push (@filesToRetrv, $ftpReturnVar);
    } else { ... }
}