my @trues = grep $bools[$_], 0 .. $#bools;