sub except_sort {
  $except{$a} || -$except{$b} || ($a cmp $b)
}