Help for this page

Select Code to Download

Select or download this

my @vehicles;
foreach (@{$data->{Vehicles}->{Vehicle}}) {
  my %vehicle;
...
  push(@vehicles,\%vehicle);
}
print Dumper(\@vehicles);