@vecs = ('')x8000; 
for my $_1 ( 0 .. 7999 ) { 
    vec( $vecs[ $_1 ], $_, 1 ) = (rand() > 0.5 ) for 0 .. 7999 
};;

print total_size \@vecs;;
8494224