use Math::Round;
$data=nearest (.1,$data)