You can simply join the statements

my @array2 = @array1;
s/\s+//g for (@array2);
[download]

into one:

tr/ //d for my @array2 = @array1;
[download]

The tr/// here only treats blanks instead of general white space, but that's easily changed if necessary.

Anno