Select Code to Download

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

$HASH1 = {
           a      => sub {
                       use warnings;
...
                  => 'V: $HASH1->{a}'
         };
$HASH1->{original_a} = $HASH1->{a};