for my $h(@ahoa) {
   for (keys(%$h)){
       print "$_ => ";
       print "@{$h->{$_}}\n";
   }
   print "\n";
}