sub EvalPolynominal{
	#first parameter gives the polynominal string
	#second parameter gives the min-des width
	#third parameter gives the short-line length
	
	my $polynominal=shift;
	my $curWidth=shift;
	my $curLength=shift;
	
	$polynominal =~ s/W/$curWidth/g ;#replace W with current value of min width
	$polynominal =~ s/L/$curLength/g ;#replace L with current value of min Length
	return eval ($polynominal);
}

##</code><code>##

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

##</code><code>##

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