# How to sort this two elements of a list?

Hi So I have the following list:

data = {{3.73324*10^10 + 147881. s + 1. s^2, 1}, {3.73324*10^10 + 357017. s + 1. s^2, 1}}


(this is a short example, in this case the list has only two elements, but this is part of a big scheme of things)

I want to order the elements of this list based on a parameter Q

Q1 = Sqrt[CoefficientList[data[][], s][]]/CoefficientList[data[][], s][]
Q2 = Sqrt[CoefficientList[data[][], s][]]/CoefficientList[data[][], s][]


I want to order it by increasing values of Q so, in this case the elements should be swapped. What is the best way to do this in systematic way using sort? I have tried this but failed miserably, probably due to syntax:

Sort[FactorsDen, Sqrt[CoefficientList[#1[][], s][]]/CoefficientList[#1[][], s][]< Sqrt[CoefficientList[#2[][], s][]]/CoefficientList[#2[][], s][] &]


Any guess on how can I do this in an easy way? Thank you!

\$Version

(* "13.2.1 for Mac OS X ARM (64-bit) (January 27, 2023)" *)

Clear["Global*"]

metric[x_List] :=
Module[{t = CoefficientList[x[], s]}, Sqrt[t[]]/t[]]

data = {{3.73324*10^10 + 147881. s + 1. s^2,
1}, {3.73324*10^10 + 357017. s + 1. s^2, 1}};

SortBy[data, metric]

(* {{3.73324*10^10 + 357017. s + 1. s^2,
1}, {3.73324*10^10 + 147881. s + 1. s^2, 1}} *)
`