>>434
use Tie::Hash::Indexed;

tie my %hoge, 'Tie::Hash::Indexed';
%hoge = ('aaa', 3, 'ccc', 2, 'bbb', 1);
foreach(%hoge){
print "$_ ";
}

# 一応できたけど、このモジュールだったけか…。