my $sub = sub {print $value};
  $sub.MY{'$value'} = 42;
  $sub();