Select Code to Download

sub unfoldauthors3 {
    my ($authors) = @_;
    return [ map { $_->{family}.', '.$_->{given}.'; '.join(' - ',
        map {$_->{name}} @{ $_->{affiliation} }) } @{$authors->[0]} ];
}