$VAR1 = { 'Dev' : { 'NM' : { 'nmsAc' : 'Unknown', 'nmsA' : '0.0.0.0:0' }, 'eve' : { 'alert' : '1', 'debug' : '1' }, 'Com' : { 'cost' : '1', 'stre' : 'nco', }, 'VeCog' : { 'Operations' : { 'A' : { 'Value' : '1', 'Desc' : 'Minmess' }, 'B' : { 'Value' : '10', 'Desc' : 'Minmess' }, 'C' : { 'Value' : '100', 'Desc' : 'Minmess' }, 'D' : { 'Value' : '1000', 'Desc' : 'Minmess' }, } 'disc' : { 'con' : '0.0.0.0:0', 'int' : 'None' } } } }; #### use XML::Simple; use Data::Dumper; $xml = new XML::Simple; $data = $xml->XMLin("/home/nager.xml"); print "$data->{Dev}->{VeCog}->{Operations}->{C}->{Value}\n"; #### A:1 B:10 C:100 D:1000