Re^2: Ouch! Each! Reentrant it is not

[greenFox]

You can avoid the scalar op and a useless variable by just calling keys in scalar context:

I'd want to see that documented in the code or someone will get bitten!

keys %hash; # reset each to beginning of hash
return "The key for 2 is $key\n" if $val == 2;