@files = grep {  -f "$dir/$_" } readdir(DH);