DB<1> $x = 319.02 - 112.09 - 69.75 - 113.57 - 23.61;

  DB<2> p $x
-1.4210854715202e-14

##</code><code>##

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