($,, $\) = ($", $/); print map %$_, @$AoH; #### keyname aaaaa keyname bbbbb keyname ccccc