Select Code to Download

print "removed=$removed, ", scalar @chroma, "\n";
splice (@chroma, $removed, 1);

splice() offset past end of array at foo.pl line 154 (#1)
    (W misc) You attempted to specify an offset that was past the end 
+of
...
    of the array, rather than past it. If this isn't what you want, tr
+y
    explicitly pre-extending the array by assigning $#array = $offset.
+ See
    perlfunc/splice.