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

##</code><code>##

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