foreach(@aoh)
{
   my %a = %$_;
   my %c= reverse %a;


##</code><code>##

 {
    3 => 15,
    4 => 8,
    5 => 8,
 },

##</code><code>##

   my %c = reverse %$_;