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