#!/usr/bin/perl
use warnings;
use strict;
use XML::LibXML::Reader;
my $file;open $file, 'formal.xml');
my $reader = XML::LibXML::Reader->new( IO => $file ) or die ("unable to open file");
while ( $reader->nextElement( 'DATA' ) ) {
my $info = $reader->readOuterXml();
$reader->nextElement( 'number' );
my $number = $reader->readInnerXml();
$nums{$number}=$info;
print( "num: $number\n" );
print( " datainfo: $info\n"
}
####
print( "num: $number\n" );
print( " datainfo: $info\n"
##
##
print %nums;