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