But yours ignores the double element.
Look closely because it doesn't

Processing SUB2
Processing   Element2
HASH(0x1ba4bfc) Type: Type2
HASH(0x1ba4bfc) content: Type 2 value
HASH(0x1ba4c08) Type: Type3
HASH(0x1ba4c08) content: Type 5 value
[download]

My original version does the job very good. But when I process xml with not unique elements it gives a error: Not a hash reference.
see splain

Not a HASH reference (#1)
    (F) Perl was trying to evaluate a reference to a hash value, but f
+ound a
    reference to something else instead.  You can use the ref() functi
+on to
    find out what kind of ref it really was.  See perlref.
[download]