BigFloat

#!/usr/bin/perl
use strict;
use warnings;
use Math::BigFloat try => 'GMP';
use feature 'say';

Math::BigFloat->div_scale(60);
say my $x1 = Math::BigFloat->new('-7.0E1')->bexp();
say my $x2 = Math::BigFloat->new('-7.05E1')->bexp();
say my $x3 = Math::BigFloat->new('-8.0E1')->bexp();
my @a = ($x1, $x2, $x3);
foreach (@a) {
  my $one = Math::BigFloat->bone();
  say $one->copy()->bdiv($one->copy()->badd($_));
}