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