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