use Language::MySort;

*sorter = lang_sort(
  # nifty way to make (A, a, B, b, C, c, ... Z, z)
  (map +($_, lc), 'A' .. 'Z')
  { ignore => q{-} }
);