map { my_delete($canvas, $_) } @$ptext;

##</code><code>##

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

##</code><code>##

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