sub GetINDirFiles {
    my ($path) = @_;

    opendir DIR, $path or die $!;
#       my @files = readdir DIR;
    my @files = grep {!/\_NSA|_\d+_\d+\.xml/} readdir DIR;
        closedir DIR;

    return(@files);
}