use warnings;
use strict;
use feature 'say';
use Math::BigInt;

my $x = Math::BigInt->new(1);
$x <<= 1024;

for(my $i = $x; $i <= $x + 2; $i++) {
  say $i;
  }