... output for each $key ....
  join $sep,@{ $hash{$key} }