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

print total_size \@vecs;;
8494224

##</code><code>##

$t = time; 
for my $_1 ( 0 .. 7999 ) {  
    vec( $vecs[ $_1 ], $_, 1 ) ? ++$true : ++$false for 0 .. 7999 
}; 
print "$true $false", time() - $t;;
31998302 32001698 15.6879999637604