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