for my $item ( @AoH ) {
  for my $key ( keys %$item ) {
    print "$key => $item->{ $key }\n";
  }
}