oh wait, i left a print line in there that you don't need to see--from when i was trying to debug it. proper routine, which doesn't work, is:

sub display
{    my $self = shift;
    $self->displaynames($self->{root});
}

sub displaynames
{    my $self = shift;
    $head = shift;
    if (defined ($head->{LRef}))
    {    $self->displaynames($head->{LRef});
    }
    print $head->{Val}, "\n";
    if (defined ($head->{RRef}))
    {    $self->displaynames($head->{RRef});
    }
}
[download]