sub init() {
 my ($self)=@_;
 my $source=$self->matrix;
 foreach my $node(keys (%$source)) {
      my $elem=$source->{$node};
      my $count=0;
      foreach my $attr (@$elem) {              ##### line 60
         $self->print.="\n\n$node $count\n\n";
         if ($count<1) {$self->nodename=$node;}
         foreach my $subnode(keys(%$attr)) {
                 $self->print.=$subnode."\t".$attr->{$subnode}."\n";
         }
         $count++;
      }
 }
}
##</code><code>##

<root>
<car>
<make>audi</make>
</car>
<car>
<make>sbarro</make>
</car>
</root>

##</code><code>##

<root>
<car>
<make>audi</make>
</car>
</root>