or, alternately:

sub delimit {
  my $delim = shift;
  return join('', map {
    join($delim, @$_) . "\n"
  } @_);
}
[download]