$VAR1 = { 'node' => { 'edge2' => { 'community' => [ 'anotherthing' ], 'loopback' => [ '10.6.21.10', '10.12.71.14' ] }, 'edge1' => { 'community' => [ 'something' ], 'loopback' => [ '172.16.254.10' ] } } }; #### #! /usr/bin/perl use strict ; use warnings ; use XML::Simple ; #use Data::Dumper ; my $xml = <<'EOD' ; something 172.16.254.10 anotherthing 10.6.21.10 10.12.71.14 EOD my $data = XMLin( $xml, forcearray => 1 ) ; #print Dumper( $data ) ; foreach my $key ( keys %{$data->{'node'}} ) { foreach my $loopback ( @{$data->{'node'}{$key}{'loopback'}} ) { print "key = $key; loopback = $loopback\n" ; } } #### key = edge2; loopback = 10.6.21.10 key = edge2; loopback = 10.12.71.14 key = edge1; loopback = 172.16.254.10