Select Code to Download

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

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