v-- what's that @?
my @files = grep(/ap|ck_hm1_111/, @readdir(DIR))