i tried like that as you said but i have one doubt

#!/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 t
+o 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" 
}
[download]

it excuting but can i print hash directly not using

print( "num: $number\n" );

print( " datainfo: $info\n"
[download]

print %nums;
[download]