$ perl -Mv5.10 -MMath::BigFloat -w

my $z1 = 2.32119;
my $z2 = 2.32322;

my $y = Math::BigFloat->new( $z1 );
my $d = $y - $z2;


say $d;

-0.00203