Select Code to Download

            $LC[$i] = $f[$i]/$den;
             $den = 1;

use strict;
use warnings;
...
my $x0 = 0.5;
my $y = lageval \@x, $LC, $x0;
print "$x0 $y\n";