OK, but how to fix that and how can I avoid autovivification of the original hash?

return (join (@_)); Same result.

return join {@{\@_}) Same result.

my ($sep, @a) = @_;
return join($sep, @a);
[download]

More warnings, but same result (original hash modified, but shouldn't).