$coper = sprintf '%.2f', popnum( $model, $x, $y )