sub FindMatchingDates {
        $ServerDirectoryFile = 'D:\\Perl\\pl\\Check\\' . "$CurrentServerName" . '.txt';
        open(logfilelisting, "$ServerDirectoryFile") or die "Unable to open file: $!";
        @CheckForMatchingDate = <logfilelisting>;
        close(logfilelisting);
        foreach (@CheckForMatchingDate) {
                $SubOfCheckForMatchingDate = substr($_, 0, 8);
                if ($SubOfCheckForMatchingDate eq $TimeStampDate){
                        $AssignedCorrectLogFile = substr($_, 39);
                        chomp($AssignedCorrectLogFile);
                        push(@CorrectLogFiles, "$AssignedCorrectLogFile");
                        $LogFileFound = "1";
                }
        }
}