use warnings;
use strict;

use Math::BigInt;

my $mbi = Math::BigInt->new( 2 ) ** Math::BigInt->new( 53 );
my $n   = 2 ** 53;

for my $o ( -10 .. 10 ) {
    printf "%.0f - ", $n + $o;
    print $mbi + $o;
    print "\n";
}