Select Code to Download

use if $] ge '5.016', feature => 'fc';
use if $] lt '5.016', 'Unicode::CaseFold' => 'fc';

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

@list = sort {case_insens()} @list;