use Tie::IxHash; tie %hash, "Tie::IxHash"; $hash{any1}="first"; $hash{some1}="second"; $hash{big1}="third"; foreach $foo (keys %hash) { print " $foo\n"; } while (( $foo, $bar ) = each %hash ) { print "$foo is $bar"; }