Select Code to Download

Item1 => {
    SubItem1 => {
...
},
Item2 => {
...

sub hashref_to_treeview {
    my $hashref = shift;
    my $treeview = shift; # Win32::GUI::Treeview object
...
        hashref_to_treeview($$hashref{$node}, $treeview, $new_node);
    }
}

my $id = 1;
my $data = {};
my $table1_results = $dbh->selectall_arrayref('SELECT field1 FROM tabl
+e1 WHERE id = ?', {Slice => {}}, $id);
...
        ...
    }
}

parent   child1   child2   child3
-------- -------- -------- --------
value1   value2   value3   value4
value1   value2a  value3   (null)
...

sub recursion_test {
    my $array = shift;
    
...
    }
    return [$$array[0], undef];
}