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