map {&process_file} grep {-f "$dir/$_"} readdir(DIR);