Select Code to Download

#!/opt/local/bin/perl -w

...
$struct2->print;
print "END of struct2\n\n";

        sub addInnerObj {
                my ($self, $index, @obj) = @_;
...
                push @{ $self->arr2d->[$index] }, @obj;
        }