I am just wondering if you had a good reason not to write that as:

for my $file (@array){
  #do some stuff with $file
}
[download]

ie. a non destructive iteration over @array...