my @lines = <$in_fh>;