#!/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" 
}