There does exist also a hash function called "each".
while (($key,$value) = each %hash) {
print "$key => $value\n";
}
Hope it will help you a little.