$l[8] = 3.49
$l[7] = 2
$cpn->{'subprice'} = 1.4
$tprice = 0.345