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

##</code><code>##

  my @lines = <$in_fh>;