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