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

##</code><code>##

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