Consider the following advice from perlsyn, regarding foreach loops:

If any part of LIST is an array, "foreach" will get very confused if you add or remove elements within the loop body, for example with "splice". So don’t do that.