Select Code to Download

foo
->bar
-->troz
->narf

$item{id} = $id;
$item{name} = $name;
$item{level} = $level;
$item{parent} = $parent;
push @list, \%item;