foreach(@aoh)
{
   my %a = %$_;
   my %c= reverse %a;
foreach my $key (sort { $a <=> $b } keys%c)
{
  print "$key=> $c{$key}\n";
}
  print "\n";
}