Select Code to Download

use strict;
use warnings;
...
for(my $i = 0; $i < @array; $i++) {
    print "$i $array[$i]\n";
}

use strict;
use warnings;
...
foreach my $filename (@array) {
    print "$filename\n";
}