Help for this page

Select Code to Download


  1. or download this
    use Tie::IxHash;
tie my %hash, 'Tie::IxHash',
    one => 1, two => 2;
print "$hash{two}\n";  # prints "2"
  2. or download this
    use Data::Dump;
dd tied(%hash)->Indices(qw/two one/);
# prints (1, 0)