@sorted = sort { lc(a) cmp lc($b); } @array;