Select Code to Download

BEGIN {
    my $p_id_hash = { };
...
        print "=" x 79, "\n";
    }
}

my $id = $canvas->createRectangle(@opts);
 ...
$canvas->delete($id);

my $id = my_create($canvas, "createRectangle", [ @opts ]);
 ...
my_delete($canvas, $id);

 ...
 32.        createText -- main::draw_coordinates[ 936]
...
 41.        createText -- main::draw_coordinates[ 936]
 42.        createText -- main::draw_coordinates[ 936]
...

sub draw_coordinates {
    my ($pboard) = @_;
...
        }
    }
}

    my $ptext  = $pboard->{'text'};

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

    $pboard->{'text'} = [ ];

        ...
        my $id = my_create($canvas, "createText", [@opts]);
        push @$ptext, $id;

    $pboard->{'text'} = [ ];

        ...
        my $id = my_create($canvas, "createText", [@opts]);
        push @$ptext, $id;

    $ptext = $pboard->{'text'} = [ ];

    @$ptext = ( );        # Instead of $pboard->{'text'} = [ ];