> > できるよ
> > sub KANSU {
> >     my ($val, $arr) = @_;
> >     print "変数 $val\n";
> >     print "配列の最初 ${$arr}[0]\n";
> > }
> > こんな感じじゃなかったか
> 関数側で配列を受け取るときは@arrでなく$arrでいいのかい？

つーかshiftを使えば取れるんじゃないか

参考：2004/10/20(水)16時28分22秒