Select Code to Download

my $fi = scalar (@FILES);
for (my $k = 0; $k < $fi ; $k++)
...
     open (F,$FILES[$k]) or die " rey ledhu ra \n";
     ...
  };

foreach my $file ( @FILES )
{
...
       or die "open: < $file: $!\n";
    ...
}