#!/usr/local/bin/perl
use strict;
use XML::Smart;
my $XML = XML::Smart->new('test.xml') ;
my $v_property_id;
my $v_value;
my $v_value_desc;
$XML = $XML->{xml} ;
my @device_id = @{$XML->{DEVICE_PROFILE}{DEVICE_ID}} ;
my @property_id = @{$XML->{DEVICE_PROFILE}{PROPERTY_ID}} ;
my @value = @{$XML->{DEVICE_PROFILE}{VALUE}} ;
my @value_desc = @{$XML->{DEVICE_PROFILE}{VALUE_DESC}} ;