$customer->[0]{_address1} = 'hello';
my $i = 1;
my $varname = '_address' . $i;
print $customer->[0]{$varname};