$concat = join ',', map {"!$_"} @array1;


##</code><code>##

@array2 = map {"!$_,"} @array1;
chop $array2[-1];