foreach my $node(keys (%$source)) {
      my $elem=$source->{$node};
      my $count=0;
      foreach my $attr (@$elem) {        
         $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>##

foreach $label (keys %contact) {
print"$label:$contact{$label}\n";