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