# And show the resulting array.
foreach my $row (@data) {
    print qq(["),join('", "',@$row),qq("]\n);
}

##</code><code>##

{local$"=','; print "@array\n";}
print join(',',@array),"\n";