if ($content->{Addresses}{ArrayOfAddressResponse}{AddressResponse} =~ /HASH/) {

foreach my $response ( keys %{$content->{Addresses}{ArrayOfAddressResponse}} ) {
...do stuff...

##</code><code>##

if ( $content->{Addresses}{ArrayOfAddressResponse}{AddressResponse} =~ /ARRAY/) {

foreach my $response ( @ {$content->{Addresses}{ArrayOfAddressResponse}{AddressResponse}} ) {

##</code><code>##

        print "street: $response->{Street}<br>";
        print "street2: $response>{Street2}<br>";
        print "apt: $response->{UnitNumber}<br>";