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

#or even

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

#or better

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