The following script

#!/usr/bin/perl --
use strict;
use warnings;

use XML::Simple;
use Data::Dumper;

my $file = "test.xml";
my $xs1 = XML::Simple->new();
my $doc = $xs1->XMLin($file, keyattr=>['CLASSNAME'], ForceContent=>1, 
+ForceArray=>1);

print Dumper($doc);

foreach my $element (keys %{$doc->{INNERSUB}->{INNERSUB1}}) {
        print "$element\n";
        print "\tType:\t$doc->{INNERSUB}->{INNERSUB1}->{$element}[0]->
+{Type}\n";
        print "\tContent:\t$doc->{INNERSUB}->{INNERSUB1}->{$element}[0
+]->{content}\n";
}
exit(0);
[download]

With test.xml containing:

<SUB CLASSNAME="SUB1">
   <INNERSUB CLASSNAME="INNERSUB1">
        <Element1 Type="Type1">Content</element1>
        <Element2 Type="Type2">Content</element2>
   </INNERSUB>
</SUB>
[download]

Produces

$VAR1 = {
          'INNERSUB' => {
                        'INNERSUB1' => {
                                       'Element2' => [
                                                     {
                                                       'Type' => 'Type
+2',
                                                       'content' => 'C
+ontent'
                                                     }
                                                   ],
                                       'Element1' => [
                                                     {
                                                       'Type' => 'Type
+1',
                                                       'content' => 'C
+ontent'
                                                     }
                                                   ]
                                     }
                      },
          'CLASSNAME' => 'SUB1'
        };
Element2
        Type:   Type2
        Content:        Content
Element1
        Type:   Type1
        Content:        Content
[download]

Update: If the syntax for accessing nested data structures is not familiar, you might have a look at perlreftut.

use strict;
use warnings;
use XML::Twig;

my $xfile = <<EOF;
<SUB CLASSNAME="SUB1">
   <INNERSUB CLASSNAME="INNERSUB1">
        <Element1 Type="Type1">Content</Element1>
        <Element2 Type="Type2">Content</Element2>
   </INNERSUB>
</SUB>
EOF

my $t= new XML::Twig();
$t->parse($xfile);
my $sub = $t->root();

for my $elm ($sub->first_child('INNERSUB')->children()) {
    print $elm->name(),         "\n";
    print $elm->att('Type'),    "\n";
    print $elm->text(),         "\n\n";
}

__END__

Element1
Type1
Content

Element2
Type2
Content
[download]

Note: I had to modify your "element" end tags to be "Element", for legal XML.

Thanks for the link. The next hours I will look into my script again. But first I'll check out your node link.

I checked the link(s) but now I am more worried I will not be able to make my script. Perl is, imo, quite complicated if you never saw referencing like that. How can I get a list of attributes within an element ?
Like for this xml

<node class="1" name="name1" type="type1" ... >
[download]

What outputs this:
You have 3 attributes:
class
name
type
?
Without using the node in code... So in a loop, and not like {node} , that is not how to program
Keep in mind that I use the XML::Simple.
Thanks so much for the help !!!

Do your part, set it up.

Maybe that is because I am struggling with the referencing !
Sorry Guys, I am a Perl noob. My problem is that I cannot spend time studying this language. My boss wont let me
I need an output like this:
This is the output i am looking for,
"You have 2 tags: node and node
In node you have attribute type and name with values k and n"
for this xml
XML
----

<XML>
<element>
<node type="k" name="n"/>
<node type="i" name="q"/>
</element>
</XML>
[download]

Dummy Code


#!/usr/bin/perl --

use strict;
use warnings;
use XML::Simple;


my $xs1 = XML::Simple->new();
my $doc = $xs1->XMLin($file, keyattr=>['????'], ForceContent=>1, Force
+Array=>1);

use Data::Dumper;
local $Data::Dumper::Indent=1;

print Dumper($doc);


for my $sub ( sort keys %{ $doc->{????} } ){
 
  
    for my $elem ( sort keys %{ $doc->{????}->{$sub} } ){

    }
}
[download]