my $VAR = makeA(20000000);
sub makeA { return 'A' x (shift) }