use bignum;
my $x = 2**1024;

for ("A$x" .. "A${\($x+2)}") {
    say substr $_, 1;
}