> my $x = 319.02 - 112.09 - 69.75 - 113.57 - 23.61;
0
> say sprintf "%.50f", $x
0.00000000000000000000000000000000000000000000000000
> say $x == 0;
True