$tprice = ($l[8]/$l[7])-$cpn->{'subprice'};
if ($tprice < 1  && length($tprice) > 4) {
	print "SPRINTF - $tprice -  " . sprintf("%0.02f",$tprice) . "\n";
}