Untested and (in part) schematic code follows:

sub new
{
    my $class = shift;
    my $self = { children => [] };
    bless $self, $class;
}

sub addSubBlock # (newblock)
{
    my $self = shift;
    my $block = shift;
    push @{$self->{children}}, $block;
}

sub traverse_preorder
{
    my $self = shift;
    my @children = ();
    foreach my $child (@{$self->{children})
    {
        push @children, $child, $child->traverse_preorder;
    }
    return @children;
}
[download]

OK, so I'm using a hash reference for the object data. I'm only using that for ease of illustration.

Updated:renamed traverse_inorder to traverse_preorder. D'oh!

Thanks for your reply, your code was what I was looking for.

The question soes not make sense to me. Maybe it could if I knew what you are referring to. Please specify: what is

• a "Block object"?
• a "child [block] object"?

If this is about perltooc, there's a recipe for a class method counting objects of that class in the book by TheDamian

Cheers, Sören

Update: - fixed the link to perltooc
- found the object instance counter in perltoot