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