perldoc -f sort

##</code><code>##

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