$x = 319.02 - 112.09 - 69.75 - 113.57 - 23.61;
print $x, "\n", sprintf "%.2f\n", $x;