Select Code to Download

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

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