Help for this page
map { my_delete($canvas, $_) } @$ptext;
my_delete($canvas, $_) for @{$ptext};
for (@{$ptext}) { my_delete($canvas, $_) }