ごめん、素で間違えた。

func{
　local ($a,*b) = @_;
　print "変数の中身は→$a\n";
　print "配列の最初の要素は→$b[0]\n";
}

たとえば、こう言う風に使うとき

@a = (1,2,3,4,5);
&func('オマエモナー',*a);