Select Code to Download

# receive a list of filenames on stdin
# (or from an intermediary file named on command line)
...
   chomp;
   # process a filename in $_
}

# index loop
for my $f (0 .. $#array)
...
for my $g (@array)
{ ...
}