> 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.

You don't use splice, but instead you change the arrays the loop iterates over:

@img = grep {!/$rr/} @img;
@vid = grep {!/$rr/} @vid;
[download]

So don't do that.