use warnings;
use strict;

my $xml = {
          'Fruits' =>
            [
              {
                'Season' => 
                  { 
                    'Apple' =>
                      {
                        'UnitsAvailable'=> ['100']
                      }, 
                    'Orange' =>
                      { 'UnitsAvailable' => ['200']
                      }
                  }
             }
          ]
 };