use strict;
use warnings;

my @aoh;
push @aoh, { one => 1, two => 2 };
push @aoh, { three => 3, four => 4 };
push @aoh, { five => 5, six => 6 };

dump_keys( $_ ) for @aoh;

sub dump_keys { print "$_\n" for keys %{+shift} }