Dog 123 Carrot 42 Talc 007 ##

##

$Var1 = \{
	 'Thing' => [
		    {
		     'Animal' => {
				 'ThingName' => 'Dog',
				 'ThingID' => '123'
				 }
		    },
		    {
		     'Veg' => {
			      'ThingName' => 'Carrot',
			      'ThingID' => '42'
  			      }
		    },
		    {
		    'Mineral' => {
				 'ThingName' => 'Talc',
				 'ThingID' => '007'
                                 }
		    }
		   ]
	};

##

##

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