Как вернуть несколько значений из вызова функции PERL?

Как я могу вернуть несколько значений из вызова функции Perl?

Образец кода

my ($value1, $value2, $value3) = getValues(@parts)

sub getValues
{
    foreach(@_)
    {
        $_ =~ m{/test1_name (.*) test2_name (.*) test3_name (.*)/};

        $test1_value = $1;
        $test2_value = $2;
        $test3_value = $3;
    }
}

Этот код не работает Отказ