@files = grep{-f "$path_to_dir/$_"}readdir Dir;