$canvas->Tk::bind('<Button-1>' =>
             [sub {
                   my ($e,$x,$y) = (@_);
                   shift;
                   push (@coords, $x);
                   push (@coords, $y);

                   },
              Ev('x'), Ev('y')]);