I agree. Instead of iterating over an array you modify this way, do it another way:

while ( defined( my $path = shift @all_paths ) ) {
    # ...
[download]

Update: ...but be aware that this leaves @all_paths empty.