Select Code to Download

...
      unless ( exists $abc{$parent}{$child} )
...
        $abc{$parent}{$child}=\%c;
      }
...

# shared hash version.
my %abc : shared ;
...
      $abc{ $parent }{ $child } = 1;
  }
}