Select Code to Download

    <?xml version="1.0" encoding="UTF-8" ?> 
    <GeocodeResponse>
        <status>OK</status> 
...
            </geometry>
        </result>
    </GeocodeResponse>

    print "<br>Content-type: text/html \n\n";
    my @lines = split /\n/, $content; #--content = above XML data
    my $depth=0; my @myarray; my $currVar; #--Declare/Set
...
        }    
    }
    print "<br>STATUS = ".$myarray[GeocodeResponse][status]." <---THIS
+ should say OK";

    $myarray=[GeocodeResponse]=[
        status="OK",
...
            ],
        ],
    ]

# creates a single array, not an array of arrays
my @array_of_arrays = ( 1 .. 10, ( 11 .. 20, ( 21 .. 30 ) ) );

@array_of_arrays = (
    status="OK",
...
        )
    )
)