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

##</code><code>##

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

##</code><code>##

$customer->[0]{_address}[0]
$customer->[0]{_address}[1]

##</code><code>##

my $arrayref = $customer->[0]{_address};
for my $address (@$arrayref) {
    # do whatever with $address
    ...
}