@sorted = sort {
    substr($a, 0, 1) cmp substr($b, 0, 1) || lc($a) cmp lc($b)
  } @needs_sorting;