The following is an abstraction that shows a way to do what you want. It will handle "... a lot of values ..." and can be extended (e.g. you could add support for hashrefs at some later time). 

[ ~/tmp ] $ cat return_multi_refs 
# return_multi_refs

use strict;
use warnings;

use constant REF_SYM_MAP => {
    ''      => ['$', '', ''],
    SCALAR  => ['$', '${', '}'],
    ARRAY   => ['@', '@{', '}'],
};

my $rh_params = subroutine();

spawn_vars($rh_params);

{
    no strict qw(vars);
    no warnings qw(once);

    print "scalar1 [$scalar1]\nscalar2 [$scalar2]\nscalar3 [$scalar3]\
+n",
            "array1[1] [$array1[1]]\narray2[2] [$array2[2]]\n";
}

exit;

sub subroutine
{
    my @array1 = ( qw(a b c ) );
    my $ra_array2 = [ qw(x y z) ];
    my $scalar2 = 'Scalar the Second';
    my $scalar3 = 'Scalar the Third';

    my %params = (
        scalar1 => 'Scalar the First',
        array1  => \@array1,
        scalar2 => \$scalar2,
        array2  => $ra_array2,
        scalar3 => $scalar3,

    );

    return \%params;
}


sub spawn_vars
{
    eval join '', map {(
            REF_SYM_MAP->{ref($_[0]->{$_})}[0], __PACKAGE__, '::', $_,
+ ' = ',
            REF_SYM_MAP->{ref($_[0]->{$_})}[1], '$_[0]->{', $_, '}',
            REF_SYM_MAP->{ref($_[0]->{$_})}[2], ';',
    )} keys(%{$_[0]});
    die $@ if $@;
}

[download]

Test output: 

[ ~/tmp ] $ perl return_multi_refs 
scalar1 [Scalar the First]
scalar2 [Scalar the Second]
scalar3 [Scalar the Third]
array1[1]  [b]
array2[2]  [z]
[ ~/tmp ] $

[download]

Regards,

PN5

In reply to Re: passing array references by Prior Nacre V
in thread passing array references by cosmicperl

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.