Select Code to Download

sub EvalPolynominal{
    #first parameter gives the polynominal string
...
    $polynominal =~ s/L/$curLength/g ;#replace L with current value of
+ min Length
    return eval ($polynominal);
}

push @CompareValues,&EvalPolynominal($$lvlhash{$level}{'POLY_BASED_EM_
+DC'}{'EM_POLY'}{11},$$refhash{$level}{'MINDESIGNWIDTH'},0);
print ("size ".@CompareValues. "\n");

$VAR1 = [
          undef,
          '0.048648',
          '0.048648'
        ];