Help for this page

Select Code to Download

Select or download this

use Unicode::CaseFold qw(case_fold !fc)
@list = sort {case_fold($_)} @list;