http://www.perlmonks.org?node_id=1030991


in reply to Unexpected Data::Dumper results

Probably not what you would call elegant but if you execute it twice, it works... at least in this case. Just like LaTeX...

$VAR1 = { 'shared' => \'true', 'parents' => [ { 'isRoot' => $VAR1->{'shared'} } ] } for (1..2); print $VAR1->{parents}->[0]->{isRoot},"\n";