Hyundai 20000 Jeep 10000 F1 text F2 text ##

##

$VAR1 = {
          'unsold' => {
                      'car' => [
                               {
                                 'model' => 'Hyundai',
                                 'mileage' => '20000'
                               },
                               {
                                 'model' => 'Jeep',
                                 'mileage' => '10000'
                               }
                             ]
                    },
          'footnotes' => {
                         'footnote' => {
                                       'F2' => {
                                               'content' => 'F2 text'
                                             },
                                       'F1' => {
                                               'content' => 'F1 text'
                                             }
                                     }
                       }
        };

##

##

#!/usr/bin/perl
use XML::Simple;
use Data::Dumper;
$xml = new XML::Simple;
$data = $xml->XMLin("cars.xml", forcearray => ['footnote', 'car', 'id']) or die "Sorry no can do:$!";
#$data = $xml->XMLin("cars.xml") or die "Sorry no can do:$!";
print Dumper($data);
exit;

foreach $e (@{$data->{unsold}{car}})
{
print "$e->{model}";
print "$e->{mileage}";
}
foreach $e (@{$data->{footnotes}})
{
print "$e->{footnote}{content}\n";
}