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