sub next_key {
   my ($h, $key) = @_;

   my $best;
   foreach my $hkey (keys %$h) {
      if ( $hkey >= $key ) {
         if ( !defined($best) || $hkey < $best ) {
            $best = $hkey;
         }
      }
   }

   return $best;
}