use strict;
use warnings;

use Test::More tests => 1;

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

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

is_deeply \@clean, \@array1;