while (local $_= each %hash) { .... }

##</code><code>##

for (keys %hash) { .... }

##</code><code>##

for (@array) { .... }