i want to use a statistics::basic::computedvector::set_filter, but the filter i want to use is an array of 1's and 0's. is this possible?

here's what I want to do:

my $v1 = vector(1,2,3,4,5);
my @filter = qw(1 0 0 1 1);
my $cv = computed($v1);
$cv->set_filter(@filter);
[download]

I tried the following:

my $v1  = vector(1,2,3,4,5);
my $compV1 = computed($v1);
my @filter = (1) x $compV1->query_size();
$filter[-1] = 0;
say $compV1;
$compV1-> set_filter( sub { grep { $filter[$_] } 0..$#_ } );
say $compV1;
[download]

but this prints

[1, 2, 3, 5, 7]
[0, 1, 2, 3]
[download]

what should I do?