пропро... гм. прокодерство. матерно.

говорите, лисп, скобочки...

foreach my $ship (@$authorships) {
     until (exists( $people{$ship->{type}})) {
          $people{$ship->{type}}[0]=undef;
     };
     push @{$people{$ship->{type}}}, $ship->getReferencedObject('person');
     print join ', ', %people;
}

обычный перл.
( матерное )