$ perl -wE '$v=""; vec($v,2**32+42,1)=1; say "wrapped" if vec($v,42,1)' wrapped