in reply to Pre-grow a string

my $str = "";
vec($str, 2**19-1, 8)=0;
$str = "";

[download]

In Section Seekers of Perl Wisdom