Select Code to Download

my %hash = (-5189 => 63, -3213 => 9, -2357 => 3);

...
  return;
}
print next_key(\%hash,3000) . "\n";

my %hash = (5189 => 63, 3213 => 9, 2357 => 3);