my @files = $files;
opendir(OUTPUT, $files);
  @files = grep {$_ ne '.' and $_ ne '..'} readdir(OUTPUT);
closedir(OUTPUT);