my $f = sub ($$) { 1 }; my $g = sub { 2 }; $x->sub(1); sub ($) { }