open my $in_fh, '<',$file; 
  my @lines = $file;
  close $in_fh;