use strict;
use warnings;
use 5.010;


my %h1 = qw{Addressee David Street Street1};
my %h2 = qw{Addressee Kathy Street Street2};
my $templist;

#my $address = [\%h1, \%h2];
my $address = \%h1;

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

foreach  my $response ( @ $templist  ) {
    print "name: $response->{Addressee}<br>\n";
    print "street: $response->{Street}<br>\n";
}

--output:--
name: David<br>
street: Street1<br>