perl -wE"$v=''; vec( $v, 2**32, 1 )=1"