foreach my $temp (@array1) {
   push (@array2,"!".$temp.",");
}