@fils = grep { -f "$dirname/$_" } readdir DIR;