Perlで複数の値を返す良い方法はありますか？

以下のように多重代入できるかと思って確かめましたが、
結果は以下の通りでした。
$a=[]
$b=[20]

方法はいろいろとありそうですが、Perl苦手でわかりません。

sub test{
local $cc = '';
local $s = '';

$cc = 'AAAAA';
$s = 20;

#
return $cc, $s;

}


$a, $b = &test;


print "\$a=[$a]\n";
print "\$b=[$b]\n";



exit;

__END__

No.3 ベストアンサー 回答者： estea 回答日時： 2003/08/29 00:08

リファレンスもアリ。

------------

sub test{
my $cc = 'AAAAA';
my $s = 20;

#
return [$cc, $s];
}


$a = &test;


print "\$a=[$a->[0]]\n";
print "\$b=[$a->[1]]\n";

exit;

------------------



あと、返答はしたほうがいいと思うでぇ。
そのまま放置プレイされるのもあんまり気持ちよくないし。

No.2 回答者： Ethersky 回答日時： 2003/08/19 01:57

・リスト

($a,$b) = &test;

sub test {

～略～

return ($cc,$s);
}

・配列

@get = &test;

sub test {

～略～

return @return;
}

ところで「Perlで Right関数に近い処理をさせたいのですが、何か良い方法は無いでしょうか？」に対しての返答・お礼はしないのですか？（回答してくれた方に対して失礼ですよ）

No.1 回答者： osamuy 回答日時： 2003/08/18 17:27

リスト形式でリターンしてみては。

sub test{
local $cc = '';
local $s = '';
$cc = 'AAAAA';
$s = 20;
#
return ($cc, $s);
}
($a, $b) = &test();