my @lines = <$fh>;