#!/usr/bin/perl

# use module
use strict;
use XML::Simple;
use Data::Dumper;

# read XML file
my $xmlfile = "./GA_MFU_Get_Status.xml";
my $ref = eval { XMLin($xmlfile) };

# print entire output
print Dumper($ref);

foreach my $item (@{$ref->{ICD_Description}})
{
    print $item->{MsgData}, "\n";
    print ": ", $item->{MsgData}->{MsgDataRegion}->{Msg_Data}->{Array}, "\n"; 
    print ": ", $item->{MsgData}->{MsgDataRegion}->{Msg_Data}->{Array}->{StructureType}->{DataLine}, "\n";
    print ": ", $item->{MsgData}->{MsgDataRegion}->{Msg_Data}->{Array}->{StructureType}->{DataLine}->{DataField}, "\n"; 

    print "\n";
}