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