my @vehicles;
foreach (@{$data->{Vehicles}->{Vehicle}}) {
  my %vehicle;
  $vehicle{vin}=$_->{vin};
  foreach(@{$_->{VehicleAttributes}->{VehicleAttribute}}) {
    $vehicle{$_->{type}}=$_->{value};
  }
  push(@vehicles,\%vehicle);
}
print Dumper(\@vehicles);