Help for this page
local $" = ' '; open ...
my $arrayStr = join $", @{$table_A[$d]}; my $row1 = "$arrayStr";