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