my @array2 = @array1; s/\s+//g for (@array2); #### tr/ //d for my @array2 = @array1;