my ( $addr_1_line_1, $addr_1_line_2 );
	for my $node ( $user->findnodes( q{ ./*[ local-name()="address"
                                     and @name = "1"] } )) {
		for my $subnode ( $node->findnodes(
                    q{ ./*[ @name="Address line 1" ] } ) ) {
			$addr_1_line_1 = $subnode->textContent();
		}	
		for my $subnode ( $node->findnodes( q{ ./*[ 
                            @name="Address line 2" ] } ) ) {
			$addr_1_line_2 = $subnode->textContent();
		}	
  }