Help for this page

Select Code to Download

Select or download this

sub g {blah}

...
print "Closest value is ",$list[g(\@list,$number)];
# or
print "Closest value is ",$list[g($number,\@list)];

Select or download this
```
#!perl -w
use strict;
...
1.2
1.3
17.5
```