Split 

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

my @parts = split /,\s*/, $names, -1;

say Dumper(\@parts);

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