Select Code to Download

foreach my $elem ( @{ $xml_obj->{list}{value} } ) {
    $hash_of_subtree = $elem->pointer() ;
}