foreach (sort { lc($a) cmp lc($b) } readdir(DIR)) {
    push (@dir, "$dir\/$_") if (m/$non_include/);
};