Programming

    #!/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(); 
     print( "num: $number\n" );
     print( " datainfo: $info\n" );

    my %nums =( "$number", $info);
 
    while ((my $keys, my $values) = each (%nums)) { 
     print ("NUMBER:$keys." =>"INFORMATION: ".$values." \n");
    }
 
    my $key_count = keys %nums;
    print "$key_count";
    } 
    close($file);