$subcanvas1-> Tk::bind('<Button-1>' => sub { dostuff } );