print "left @array right";
# try perl -MO=Deparse for that:
print 'left '.join($",@array).' right'

##</code><code>##

local $" = '';
#...
-default => "@source",
#...

#or even

-default => do { local $" = ''; "@source" },

#or better

-default => join('',@source)