for (49..54) {
  $x=2**$_;
  $y = $x + 1.1;
  print $_, "\t", $y-$x;
}

49	1.125
50	1
51	1
52	1
53	2
54	0

##</code><code>##

$x="100000000000000000000";
$x++;
print $x, "\n";
$x += 1;
print $x, "\n"';

100000000000000000001
1e+20