サブルーチンで複数の値を返す

my ($center1, $center2) = center46('nogizaka');
print "$center1\n";
print "$center2\n";

sub center46 {
　　if ($_[0] eq 'nogizaka') {
　　　　return 'nanamaru', 'asyurin';
　　} elsif ($_[0] eq 'keyakizaka') {
　　　　return 'techi', '';
　　｝ else ｛
　　　　return 'error!', '';
　　｝
}

実効結果
nanamaru
asyurin