numbers=RandomReal[{-2,6},11]
tpk[numbers_,overflowVal_]:=Module[{revNumbers},
 revNumbers=Reverse[numbers];
 f[x_]:=Abs[x]^0.5+5 x^3;
 Do[
  If[f[i]>overflowVal,
   Print["f[",i,"]= Overflow"]
  ,
   Print["f[",i,"]= ",f[i]]
  ]
  ,
  {i,revNumbers}
 ]
]
tpk[numbers,400]