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