$input = 5.56

open (FH, "<listofvalues");
while (<FH>) {
^/(S+\.S+).*/

if $1 == $in {print value in list}
else
increment $in by +/- 0.1 and search again
if match print value in list
otherwise print not in list