veerubiji:

The syntax is nearly there. Try it this way:

my %nums;
while ($reader->nextElement('Number')) {
    my $number = $reader->copyCurrentNode(1)->textContent;

    $reader->nextElement('address');
    my $node = $reader->copyCurrentNode(1);
    my $infohash = {
        house  => $node->getElementsByTagName( 'housenumber' )->[0]->t
+extContent,
        street => $node->getElementsByTagName( 'streetname'  )->[0]->t
+extContent,
    };
    $nums{$number} = $infohash;
}
[download]

...roboticus

When your only tool is a hammer, all problems look like your thumb.