#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @array = ('foo, bar', 'bar, baz', 'foo, bar, baz');
@array = map {s/,//g; $_} @array;
print Dumper \@array;