chomp(
  my @lines = <$fh>
);