my $old_callback = $widget->bind("<1>");
$widget->bind("<3>" => $old_callback);
$widget->bind("<1>" => sub { ... eigener code ... })