my @a = split /\s*,\s*/, $a;
  my @b = split /\s*,\s*/, $b;

##</code><code>##

  my $c = join ', ', @c;