##

# use module
use XML::Simple;
use Data::Dumper;

# create object
$xml = new XML::Simple;

# read XML file
$data = $xml->XMLin("Elvis1.xml");

# print output
print Dumper($data);

##

##

$VAR1 = {
          'country' => 'USA',
          'language' => 'ENG',
          'Status' => {
                      'desc' => 'Web service status OK',
                      'id' => 'VI2000'
                    },
          'Vehicles' => {
                        'Vehicle' => {
                                     'VehicleAttributes' => {
                                                            'VehicleAttribute' => [
                                                                                  {
                                                                                    'typeid' => '14',
                                                                                    'value' => '2004',
                                                                                    'valueid' => '3043',
                                                                                    'type' => 'Year'
                                                                                  },
                                                                                  {
                                                                                    'typeid' => '1',
                                                                                    'value' => 'Ford',
                                                                                    'valueid' => '184',
                                                                                    'type' => 'Make'
                                                                                  },
                                                                                  {
                                                                                    'typeid' => '2',
                                                                                    'value' => 'Expedition',
                                                                                    'valueid' => '30',
                                                                                    'type' => 'Model'
                                                                                  },
                                                                                  {
                                                                                    'typeid' => '3',
                                                                                    'value' => 'Eddie Bauer',
                                                                                    'valueid' => '117',
                                                                                    'type' => 'Series'
                                                                                  }
                                                                                ]
                                                          },
                                     'Status' => {
                                                 'desc' => 'Vehicle status OK',
                                                 'id' => 'VI1000'
                                               },
                                     'vin' => '1FMFU17L94LB04622'
                                   }
                      },
          'marketid' => '1'
        };