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