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