How can I store entire contents of a Perl array to a scalar variable? -

How can I store all the contents of an array in a scalar variable? Example:

$ my code = do $ {local $ /; & Lt; File handle & gt; };

It works fine for this file handles but I need it for an array.

My $ str = join ", @array;