in reply to Perl level control of hash iterators
You may find the discussion in the node The Anomalous each() interesting (but probably not helpful).