# sort numerically descending
    @articles = sort {$b <=> $a} @files;