my $arrayStr = join $", @{$table_A[$d]};
my $row1 = "$arrayStr";