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