my $foo = join( '-', @foo );
   print join +( ',' => @bar ), "\n";
            ^^^^^