There are modules that will preserve the order in which the hash creates its keys. See this discussion about Tie::IxHash for example. You may need to install it from CPAN.