配列の参照

\を付けてサブルーチンに渡す。
サブルーチンでは@を付けて参照。

@fish = ('sanma', 'saba', 'maguro');

&sakana(\@fish);

sub sakana {
　　$uo = $_[0];
　　print "@$uo[0]\n";
　　print "@$uo[2]\n";
}

実行結果
sanma
maguro

※fishを参照->山椒魚