my $person = Person->retrieve( $person_id );

while ( my $name = $person->names ) {
   printf "%s, %s\n", $name->last_name, $name->first_name;
}