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

##</code><code>##

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