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