local $" = ',';
print "@A";

or...

local $, = ',';
print @A;