Unless you want a recursive solution, there will be a loop, either explicity with for, while etc, or implicitly with map, grep etc.

Some people (but not me) might prefer something like:

my @husbands = husbands( @AoH );

sub husbands {
    my $this = shift;
    return ( $this->{husband}, husbands( @_ ) )
        if @_;
    return $this->{husband};
}
[download]

Look Ma, no loops!