use Tie::IxHash;

...

my %hash;
tie(%hash , Tie::IxHash);