foreach my $princ_row ( @{$princ} ) {
  my $member_number = shift @{ $princ_row };
  push ( @{ $just_data->{$member_number}{princ} }, $princ_row);
}
  
foreach my $type_row ( @{$type} ) {
  my $member_number = shift @{ $type_row };
  push ( @{ $just_data->{$member_number}{type} }, $type_row);
}
  
foreach my $person_row ( @{$person} ) {
  my $member_number = shift @{ $person_row };
  push ( @{ $just_data->{$member_number}{person} }, $person_row);
}