opendir DIR, "$TEMP_DIR/" or &file_error("Unable to open directory. $!"); readdir DIR for 0 .. 1; @files = grep -f "$TEMP_DIR/$_", readdir DIR; closedir DIR; @files = sort{$b cmp $a} @files;