sub build_table_writer_array
# $data -- an array ref of data
#
    
{
   my $data = shift @_;
    
   my $out_data_table = undef;
    
   $out_data_table = [[@$data],];
    
   return $out_data_table;
}