($,, $\) = ($", $/); print map %$_, @$AoH;