my @husbands = husbands( @AoH );

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