@array = @array[ do {
	my @lc = map lc, @array;
	sort { $lc[ $a ] cmp $lc[ $b ] } 0 .. $#array;
} ];