サブルーチンへの引数で「配列と普通の変数」を渡したいのですがどうも上手くいきません。
例えば

--------------------------------------------------------
test(@DATA1,$data,@DATA2);

sub test{
local(@DATA,$data,@DATA2) = @_;
}
--------------------------------------------------------

のようなソースの場合local(@DATA)に全てのデータが入ってしまいます。
色々試行錯誤したのですが、なかなか望む結果は得られませんでした。

で、ポインタ（リファレンス）渡しでやったみたのですが
ポインタ自体は受け渡せたのですが、そこから配列を丸ごと参照する方法がわかりません。
($data->[x]のように一個一個要素を取り出せば上手くいきました)

何かスマートな方法はないでしょうか？