my $str = sprintf(
  qq{(%s)\n},
  join(q{,}, @things),
);