for my $i (0..$#$new_array_ref) {

    push @{$new_array_ref->[$i]}, @{ ref($sec_new_array_ref->[$i]) eq 'ARRAY' ?
                             $sec_new_array_ref->[$i] : [(' ') x 3]   };
    
}
unshift @{ $all_data_first }, $ref_header;