I don't mean these structure

my $princ = $just_data->{$member_number}{princ};
unshift @$princ,["Header 3a", "Header 3b", "Header 3c", "Header 3d"];
[download]

I mean the ones used here

foreach my $princ_row ( @{$princ} ) {
  my $member_number = shift @{ $princ_row };
  push ( @{ $just_data->{$member_number}{princ} }, $princ_row);
}
[download]

There should be member_number common to all 3 structures (princ,type,person) in the first column.
It's a bit confusing having the same variable name.