{
   my @sortkey2 = 
      sort { lc($names[$sortkey[$a]]) cmp lc($names[$sortkey[$b]]) }
      @sortkey;
   @sortkey = @sortkey2;
}