20 foreach my $datasource ($doc->{DATASOURCE}){
 21 
 22   print Dumper($datasource->[1]->{NAME}->[0]);
 23 
 24   my $element = scalar(@datasource);
 25 
 26   print "Element = $element\n";
 27   for(my $element=0; $element < scalar(@datasource); $element++){
 28       print $datasource[$element];
 29   }
 30 }