:

while($not_done) {
 my %hash;
 sub1(\%hash);
 sub2(\%hash);
 push @AoH, \%hash;
}

sub sub1 {
 my $href=shift;
 $href->{key}="value";
}

sub sub2 {
 my $href = shift;
 # Mess with href some more
}