Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    splice @arr, $idx, 1 unless $arr[$idx];
}
print qq{@arr\n};

Select or download this
```
9 0 0 5 3 0 0 0 2 0 1 0
9 5 3 2 1
```