opendir(OUTPUT, $files) or die "unable to opendir $!";
my @files = grep {-f $files/$_} readdir(OUTPUT);
closedir(OUTPUT);