my $root;

insert( \$root, 5 );
insert( \$root, 3 );

#...

sub insert {
    my ($treeref, $value) = @_;
    my $tree = $$treeref;

    unless ($$treeref) {
        $tree = {};
        #...
        $$treeref = $tree;
    }
#...