>perl -MO=Concise -e"@a = sort @a" 2>&1 | find "sort"
7           <@> sort lK/INPLACE ->8

>perl -MO=Concise -e"@b = sort @a" 2>&1 | find "sort"
7           <@> sort lK ->8

##</code><code>##

@tied_array = map $_, sort { uc($a) cmp uc($b) } @tied_array;

##</code><code>##

@tied_array = ((), sort {uc($a) cmp uc($b)} @tied_array);