> > 言ってみろ。そしてメイド服を着ろ。
> 引数に変数と配列を同時に渡すのってできないのかな
> &KANSU($MANKO,@CHINKO);
> みたく

できるよ
sub KANSU {
    my ($val, $arr) = @_;
    print "変数 $val\n";
    print "配列の最初 ${$arr}[0]\n";
}
こんな感じじゃなかったか

参考：2004/10/20(水)16時24分03秒