Select Code to Download

return unless ref($hashref) eq 'HASH';

return unless keys %$hashref;

sub treeify {
    my ($sth) = @_;
...

    return \%root;
}

{
    my $sponge = DBI->connect(
...
    use Data::Dumper;
    print Dumper $tree;
}

$VAR1 = {
          'a' => {
...
                          }
                 }
        };