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

How can I store en开发者_开发技巧tire contents of an array to a scalar variable. eg: my $code = do { local $/; <FILE HANDLE>; };