*case_insens = $] ge '5.016' ? sub { &CORE::fc($a) cmp &CORE::fc($b) } : sub { lc $a cmp lc $b }; @list = sort {case_insens()} @list;