Select Code to Download

my $i = 0;
while ($i < @filename) {
    ...
    ++$i;
}

for my $i (0..$#filename) {
    ...
}