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