sub get4Gdata {
  my( $doc, $filename, $tarrecordNumber, $filesubdirIndex, $pmlineheader) = @_;


#I need the below XML in a format 
#plmnId=26290,HenBId=768012,crnti=132,srbId=1
#VS.numberOfDlSrbSduReceived 53
#VS.numberOfDlSrbPduTransmitted 53
#plmnId=26290,HenBId=768012,crnti=132,srbId=2
#VS.numberOfDlSrbSduReceived 30
#VS.numberOfDlSrbPduTransmitted 30
#
#
#<mi>
#    <mt>VS.numberOfDlSrbSduReceived</mt>
#    <mt>VS.numberOfDlSrbPduTransmitted</mt>
#    <mv>
#        <moid>plmnId=26290,HenBId=768012,crnti=132,srbId=1</moid>
#        <r>53</r>
#        <r>53</r>
#    </mv>
#    <mv>
#        <moid>plmnId=26290,HenBId=768012,crnti=132,srbId=2</moid>
#        <r>30</r>
#        <r>30</r>
#    </mv>
#</mi>
	
	my @milist = $doc->getElementsByTagName('mi');
    foreach my $mi (@milist) {
      my $miname = $mi;

    my @moidlist = $mi->getElementsByTagName('moid');
    foreach my $moid (@moidlist) {
      my $moidname = $moid->firstChild()->nodeValue();

      $moidname =~ s/ //g;
      $moidname =~ s/\n//g;
      $moidname =~ s/\r//g;

	  
	 print " ", $moid->getName(), " ", $moid->nodePath(), " ", $moidname, "\n";

		my @mtlist = $mi->getElementsByTagName('mt');
		
			foreach my $mt (@mtlist) {
				my $mtname = $mt->firstChild()->nodeValue();
				#my $mtvname = $mi->getElementsByTagName('r');

						$mtname =~ s/ //g;
						$mtname =~ s/\n//g;
						$mtname =~ s/\r//g;
	
			print " ", $mt->getName(), " ", $mt->nodePath(), " ", $mtname, "\n";
			
		#my @mtvvalue = $mi->getElementsByTagName('r');
			#foreach my $r (@mtvvalue) {
				#my $mtvname = $mi->getElementsByTagName('r');
				#my $mtvname = $r->firstChild()->nodeValue();

			#print " ", $r->getName(), " ", $r->nodePath(), " ", $mtvname, "\n";
			#print $mtvname, "\n";	
						
		#	print " ", $rlistname->getName(), " ", $rlistname->nodePath(), " ", $rlistname, , "\n";	
#============================================================================================
		}
	  }
	}
  }
}