for (@{$ptext}) { my_delete($canvas, $_) }