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

##</code><code>##

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

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