Split 

my $names = 'Tom, Dick, Larry,';

my @parts = split ',', $names;

say Dumper(\@parts);