my @indexes = grep { condition($elements[$_]) } 0..$#elements;