my %characterOrder = (
'a' => 1,
'â' => 1,
'ä' => 1,
...
'b' => 2,
'c' => 3,
'Ç' => 4,
...
);

##</code><code>##

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