print "$key: ".join('.',@$value)."\n";
[download]

When you use an array in a string (like "@a"), perl translates this internally into join($", @a), one can see this if you turn perl's bytecode back into source code using B::Deparse.

--
integral, resident of freenode's #perl