foreach my $dir (keys %purgeDirs) {
        if ($purgeDirs{$dir} == 0){next}
        my $navigate = join("", $STITSDIR, $dir);
        opendir (THISDIR, $navigate);
        my @findDirs = readdir(THISDIR);
        foreach my $subdir (@findDirs) {
            my @stat = stat($subdir);
        }
 }