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