my @files = grep /(?:ap|ck)_hm1_111/, sort { lc $a cmp lc $b } readdir(DIR);