edit_in_place=>q[
        my @a = 1 .. $N;
        my $o = 0;
        for (@a) {
            $a[$o++]=$_ if /9/;
        }
        $#a=$o-1;
    ],