# now case-insensitively
  @articles = sort {uc($a) cmp uc($b)} @files;