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