$r = 1.3;
print $r,"\n";
$rounded=sprintf ("%.1f",$r+.05); 
print $rounded,"\n";