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