sub GoodSort
{
  $characterOrder{$a} <=> $characterOrder{$b}
}