Select Code to Download

my @array = <$fh>;
for (my $i=0; $i<@array; ++$i) {
...
   }
   ...
}

while (my $line = <$fh>) {
   ...
...
   }
   ...
}