$VAR1 = bless( {
                 'TradingStatistics::SharesOutstandingTotal' => bless( {
             'SubFields::content' => undef,
             'SubFields::Description' => undef,
             'SubFields::Type' => undef,
             'SubFields::modDate' => undef
           }, 'SubFields' ),
                 'TradingStatistics::ShortInterestRatio' => bless( {
         'SubFields::content' => undef,
         'SubFields::Description' => undef,
         'SubFields::Type' => undef,
         'SubFields::modDate' => undef

         .........

##</code><code>##



$VAR1 = {
          'TradingStatisticsIRMXL' => {
                   'TradingStatistics' => {
     'HalfYearChange' => {},
     'InstitutionsHoldingShares' => {},
     'YearChange' => {},
.....


$VAR1 = {
          'CorpMasterID' => '',
          'TradingStatisticsIRXML' => {
               'TradingStatistics' => {
     'HalfYearChange' => {
        'Description' => '26-Week Price Percent Change',
        'content' =>		',
        'Type' => 'PriceAndVolume'   },
     'InstitutionsHoldingShares' => {
        'Description' => 'Institutions Holding Shares',
        'content' 
        'Type' => 'InstitutionalHoldings'
.....                                    },