...
##

my $jparser = XML::LibXML->new;
my $doc = $jparser->parse_string($jnx->{'server_response'});
my @vlans = $doc->findnodes("/rpc-reply/vlan-information/vlan");
foreach my $vlan (@vlans){
    my @parameters = $vlan->findnodes(" ./vlan-name|
                                        ./vlan-tag|
                                        .//vlan-member-interface|");
    foreach my $param (@parameters){
        print $param->localname,  " : ", $param->to_literal, "\n";
    }   
}