do {
  my $a = { a => sub { ... }, original_a => 'fix' };
  $a->{original_a} = $a->{a};
  $a;
}