->set_filter( sub { map $_[$_], grep $filter[$_], 0..$#_ } )

##</code><code>##

->set_filter( sub { map { $_[$_] ? $filter[$_] : () } 0..$#_ } )

##</code><code>##

->set_filter( sub { @_[ grep $filter[$_], 0..$#_ ] } )