在Perl中是否有一个n-ary树实现？

#!/usr/bin/perl

package TreeNode;

sub new {
    my ($class, $value) = @_;
    my $self = {
        value => $value,
        children => []
    };
    bless $self, $class;
    return $self;
}

sub add_child {
    my ($self, $child) = @_;
    push @{$self->{children}}, $child;
}

sub get_children {
    my ($self) = @_;
    return @{$self->{children}};
}

sub get_value {
    my ($self) = @_;
    return $self->{value};
}

package main;

my $root = TreeNode->new("root");
my $child1 = TreeNode->new("child1");
my $child2 = TreeNode->new("child2");
my $child3 = TreeNode->new("child3");
my $child4 = TreeNode->new("child4");

$root->add_child($child1);
$root->add_child($child2);
$child1->add_child($child3);
$child1->add_child($child4);

sub print_tree {
    my ($node) = @_;
    print $node->get_value() . "\n";
    foreach my $child ($node->get_children()) {
        print_tree($child);
    }
}

print_tree($root);