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