Select Code to Download

$tree->{data}='stuff';'
$tree->{children}=[{},{},{}];

sub parse
{
...
for(@{$->{children}}){ parse($_);}
}}
}