Help for this page
my @vehicles; foreach (@{$data->{Vehicles}->{Vehicle}}) { my %vehicle; ... push(@vehicles,\%vehicle); } print Dumper(\@vehicles);
www.com | www.net | www.org
No recent polls found