Deleting elements from an array while iterating over it is explicitly documented as 'So don't do that' in perlfunc. Maybe grep is suitable for your use case:

@array = grep { some-condition } @array;
[download]

Dave.