my @files = grep { -f } readdir $indir;