print join(', ', @strings), "\n";

##</code><code>##

print do
   {
       local $" = q{, };
       qq{@strings\n};
   };