$VAR1 = {
          'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance',
          'ICD_Name' => 'MFU_icd',
          'ICD_Description' => {
                               'MsgData' => {
                                            'MsgDataRegion' => {
                                                               'Msg_Data' => {
                                                                             'Array' => {
                                                                                        'ArrayName' => 'MFU_ID',
                                                                                        'NumOfArrayRepetitions' => '1',
                                                                                        'StructureType' => [
                                                                                                           {
                                                                                                             'DataLine' => {

##</code><code>##

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