my (%i) = $ref_a;