foreach my $t (@array1) { push @array2, "!" . $t; ;
print join ",", @array2;