foreach my $structure_type (@{$ref{ICD_Description}{MsgData}{MsgDataRegion}{Msg_Data}{Array}{StructureType}}) {
   print "$structure_type{DataLine}{DataField}\n";
}