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

##</code><code>##

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