Select Code to Download

my @parents = qw( a b c );
my @children = qw( 1 2 3 4 );
...
%{ $abc{ $_ } //= &share({}) } = map{ $_ => 1 } @children for @parents
+;

pp \%abc;

do {
  my $a = {
...
  $a->{c}{4} = $a->{c}{2};
  $a;
}