use Tie::IxHash;
tie my %hash, 'Tie::IxHash',
	one => 1, two => 2;
print "$hash{two}\n";  # prints "2"

##</code><code>##

use Data::Dump;
dd tied(%hash)->Indices(qw/two one/);
# prints (1, 0)