my @trues = grep vec( $bools, $_, 1 ), 0 .. 8 * length $bools;