Split 

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

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

say Dumper(\@parts);

$VAR1 = [
  'Tom',
  ' Dick',
  ' Larry'
];