my @lines = scalar <$fh>;