Select Code to Download

<Things>
   <Thing>
...
      </Mineral>
   </Thing>
</Things>

$Var1 = \{
     'Thing' => [
...
            }
           ]
    };

foreach my $e ( @{ $SOAPresult->{Thing} } ) {
    print "$e->{*wildcard here*}{ThingName}\n";
}