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

##</code><code>##

my @array2 = map {(my $x = $_) =~ s/\s+//g; $x} @array1;