Help for this page
while (local $_= each %hash) { .... }
for (keys %hash) { .... }
for (@array) { .... }