{
  my $mysub = \&mysub;
  *mysub = sub { $mysub->('xyz', @_) };
}