Select Code to Download

$VAR1 = {
          'SpecificClassification' => {
...
                                              }
                                    }
        };

# MarketSegment.pm
package MarketSeg;
...

use Data::Dumper;
print Dumper($xml);