$customer->[0]{_name}
$customer->[0]{_address1}
$customer->[0]{_address2}

##</code><code>##

my $i = 1;
$varname = "_address" . $i;
print "Customer Address", $customer->[0]{$varname};

##</code><code>##

print "Customer Address", $customer->[0]{${varname}};