84 sub hash_sort {
 85   my ($hash) = @_;
 86   if (ref %$hash != 'REF') {
 87     return [
 88       (sort {$a <=> $b} keys %$hash)
 89     ];
 90   } else {
 91     return [
 92       (sort {$a cmp $b} keys %$hash)
 93     ];
 94   }
 95 }