Then replace the while loop with this code my @lines = <F>;

open (F, $file) or die "cannot open file";
  my @lines = <F>;
  close F;
[download]

you can do the same with perl module File::Slurp

use File::Slurp;
my @array = read_file($filename);
[download]