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