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