foreach my $response ( @ $address  ) {
        print "name: $response->{Addressee}<br>";
        print "street: $response->{Street}<br>";
...etc.

##</code><code>##

if ( ref $address eq HASH ) {
my $templist = [ $address ];
}

##</code><code>##

if ( ref $address eq HASH ) {
push my @templist, $address;
}