push @AoH, { email => $email, reason => $reason, std_reason => $std_reason };

##</code><code>##

	my $href = "";
												my $role = "";

												for $href ( @AoH ) {
												    print "{ ";
												    for $role ( keys %$href ) {
												         print "$role=$href->{$role} ";
												    }
												    print "}\n";
												}

##</code><code>##

sub Bounce($) {
        my @AoH = @_;

<rest are same as above>