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