sub hash_sort {
  my ($hash) = @_;
  return [
  (sort {$a <=> $b} keys %$hash)
   ];
}