Help for this page
my %characterOrder = ( 'a' => 1, ... 'Ç' => 4, ... );
sub GoodSort { $characterOrder{$a} <=> $characterOrder{$b} }