[Moscow.pm] НА: К коллективному разуму...

[Denis Evdokimov]

Может лучше так?
my @params1 = ( 11, 12, 13, 14, 15 );
my @params2 = ( 21, 22, 23, 24, 25 );
my @params3 = ( 31, 32, 33, 34, 35 );

my %params = (
               params1 => \@params1,
               params2 => \@params2,
               params3 => \@params3,
);
for (qw/params1 params2 params3/)
{
    if ( exists $params{$_} )
    {
        say Dumper $params{$_};
    }
}

Или даже так:

my %params = (
               params1 => [ 11, 12, 13, 14, 15 ],
               params2 => [ 21, 22, 23, 24, 25 ],
               params3 => [ 31, 32, 33, 34, 35 ],
);
for (qw/params1 params2 params3/)
{
    if ( exists $params{$_} )
    {
        say Dumper $params{$_};
    }
}

P.S. Можно сделать и в точности то, о чём ты спрашивал, но этого делать не
стоит.
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20120427/91e5d345/attachment.html>