Select Code to Download

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

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