Help for this page

Select Code to Download

Select or download this

for(101..103) {
  my $key = sprintf("%03d", $_); # sprintf adds leading 0's if needed
  delete $hash{$key};
}

Select or download this

use Tie::IxHash;
tie %HASH, "Tie::IxHash";

#keys in insertion order
@keys = keys %HASH;