in reply to concatenating the array elements
$list = join ',', map { $_ = "!" . $_; } @array1; [download]
foreach my $t (@array1) { push @array2, "!" . $t; ; print join ",", @array2; [download]