LINUX LINUX ... #### my $ref = XMLin('host_grp.xml', KeyAttr => { host_grps => 'port', port => "port_id", host_grp => "host_grp_id" }, ForceArray => 'host_grp_id' ); #### $VAR1 = { 'overview' => [ { 'xml_version' => '01-50-02', 'save_time' => '2012/08/30-10:37', 'tool_version' => '01-50-02', 'execute_time' => '2012/08/30-10:38', 'dkc_serial' => '17353', 'micro_version' => '60-08-11-00/00', 'dkc_type' => 'RAID600' } ], 'host_grps' => [ { 'port' => { 'CL2-A' => { 'host_grp' => { 'CL2-A-0' => { 'host_mode' => [ 'LINUX' ], 'host_grp_name' => '2A-G00' } }, 'number_of_host_grps' => '1' }, 'CL6-B' => { 'host_grp' => { 'CL6-B-0' => { 'host_mode' => [ 'LINUX' ], 'host_grp_name' => '6B-G00' }, 'CL6-B-1' => { 'host_mode' => [ 'LINUX' ], 'host_grp_name' => 'schiphol_srs_gold' } }, 'number_of_host_grps' => '2' }, #### my $ref = XMLin('host_grp.xml', KeyAttr => { host_grps => 'port', port => "port_id", host_grp => "host_grp_id" } ); #### $VAR1 = { 'overview' => { 'xml_version' => '01-50-02', 'save_time' => '2012/08/30-10:37', 'tool_version' => '01-50-02', 'execute_time' => '2012/08/30-10:38', 'dkc_serial' => '17353', 'micro_version' => '60-08-11-00/00', 'dkc_type' => 'RAID600' }, 'host_grps' => { 'port' => { 'CL2-A' => { 'host_grp' => { 'host_mode' => 'LINUX', 'host_grp_id' => 'CL2-A-0', 'host_grp_name' => '2A-G00' }, 'number_of_host_grps' => '1' }, 'CL6-B' => { 'host_grp' => { 'CL6-B-0' => { 'host_mode' => 'LINUX', 'host_grp_name' => '6B-G00' }, 'CL6-B-1' => { 'host_mode' => 'LINUX', 'host_grp_name' => 'schiphol_srs_gold' } }, 'number_of_host_grps' => '2' },