Help for this page
perldoc -f sort
# now case-insensitively @articles = sort {uc($a) cmp uc($b)} @files;