print $customer->[8]->{current}->[0];