Ça va faire plusieurs années que je programme intensivement en Perl et je viens juste de me rendre compte que la fonction each() est non-réentrante.

Extrait de perlfunc(1) :

There is a single iterator for  each hash, shared by all "each", "keys",
and "values" function  calls in the program; it can  be reset by reading
all the elements from the hash,  or by evaluating "keys HASH" or "values
HASH".

Ben zut alors.