my $o= 0;
    for my $i (  0..$#$av  ) {
        if(  should_keep($i)  ) {
            $av->[$o++]= $av->[$i];
        }
    }
    $#$av= $o-1;