sub range {
  my( $start, $end ) = @_;
  my @ret;
  while($start <= $end ){
    push @ret, $start;
    $start++;
  }
  return @ret;
}

use bignum;
my $x = 2**1024
for(range( $x , $x+2 )) {
  say
}