Win8 Strawberry 5.8.9.5 (32)  Wed 06/16/2021 10:11:33
C:\@Work\Perl\monks
>perl

use strict;
use warnings;

use Test::More tests => 2;
1..2

my @array1 = ('foo', 'bar');
my @array2 = (" foo\n", ',bar,');

my @clean = map { s/[\s,]//mg; $_ } @array2;

is_deeply \@clean,  \@array1, "new, cleaned array";
is_deeply \@array2, \@array1, "dirty array modified in place";

^Z
ok 1 - new, cleaned array
ok 2 - dirty array modified in place