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