grow( my( $str ), 2**19 );
while ( ... ) {
    $str .= pack 'J', ...; # append four bytes at a time.
}