Before dumping the original value, you should have set

$Data::Dumper::Purity = 1;
[download]

It leads to the following output:

$VAR1 = {
          'shared' => \'true',
          'parents' => [
                         {
                           'isRoot' => do{my $o}
                         }
                       ]
        };
$VAR1->{'parents'}[0]{'isRoot'} = $VAR1->{'shared'};
[download]