Help for this page

Select Code to Download


  1. or download this
     use Tie::Hash::Sorted;

...
}

print next_key(\%hash,3000) . "\n";
  2. or download this
     
tie my @numbers, 'Tie::Array::NextIndex',
    Members => {
...
$numbers[3213] = 9;
$value = $numbers[3000];  # value = 9