Help for this page

Select Code to Download


  1. or download this
    my $princ = $just_data->{$member_number}{princ};
unshift @$princ,["Header 3a", "Header 3b", "Header 3c", "Header 3d"];
  2. or download this
    foreach my $princ_row ( @{$princ} ) {
  my $member_number = shift @{ $princ_row };
  push ( @{ $just_data->{$member_number}{princ} }, $princ_row);
}