Or, as an auxiliary answer for completeness’ sake that you should probably ignore: if the array is very large and the strings are long,

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

Makeshifts last the longest.