$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