throop,
I had considered doing something interesting with each for Tie::Hash::Sorted but hadn't gotten around to it. You might be interested in Localizable / customizable 'each' iterator for hashes by davido.